Select Code to Download

for(my $i=0; $i < scalar(@array); $i++) {
    print $array[$i], "\n";
}

for( @array ) {
    print $_, "\n";
}