Select Code to Download

#!/usr/bin/perl

use strict;
...
for my $i($[ .. $[ + (scalar(@array) - 1) ){
    print $array[$i],"\n";
}

#!/usr/bin/perl

...
for my $i($[ .. $#array ){
    print $array[$i],"\n";
}