Select Code to Download

foreach my $element ( @array ) { ...... }

my @newlist = map { ....... } @array;

foreach my $idx ( 0 .. $#array ) {
    #do something with $array[$idx];
}

my @newlist = map { # do something with $array[$_] } 0 .. $#array;

package IndexedArray;

...

1;

use strict;
...
              . "].\n";
    }
}