my $a = ["hoge", "fuga", "haga"];
say($a[0]);
$a[5] = "IYAN";
$a[0] = "hOgE";
$a[1] = "hOgE1";
$a[8] = "hOgE8";

say($a.tora());

my $b=5;
$b = 4;
say($b);

my $empty_array = [];
say($empty_array.tora());

__END__
hoge
['hOgE','hOgE1','haga',undef,undef,'IYAN',undef,undef,'hOgE8']
4
[]