とりあえずテストですん
#!/usr/bin/env perl
use v5.16;
use warnings;
use Getopt::Long;
my $some_option;
GetOptions(
"some-option|s=s" => \$some_option,
);
say "Hello, world.";
my %hash;
my @array;
for my $i (0 .. 9) {
say "$i ^ 2 = ", $i ** 2;
push @array, $i;
$hash{$i} = $i ** 2;
}