テキスト版(1/2)
----------
#!/usr/bin/env perl

use v5.26;
use utf8;
use warnings;
use strict;

use Encode::Argv;
use Encode::Locale;

use feature "say";
use open IO => ":utf8";

binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";

@ ARGV or die "素数の範囲を指定してない";
say "素数の範囲 $ARGV[0] まで";

テキスト版(2/2)
----------
# 添字と同じ値を要素にする
my @ sosuu = (0 .. $ARGV[0]);
say "@ sosuu";
# ０と１は素数でない、未定義値を入れる
$_ = undef for @ sosuu[0, 1];

for (@ sosuu) {
if (defined) {
my $i = $_;
for (my $j = 2; $i * $j < @ sosuu; $j++) {
$sosuu[$i * $j] = undef;
}
}
}

@ sosuu = grep {defined} @ sosuu;
say "@ sosuu";