Select Code to Download

for my $element (@$arrayref) {
    print $element, "\n";
...
for my $i (0 .. $#$arrayref) {
    print "$i: $arrayref->[$i]\n";
    }