Select Code to Download

for (my $i = 0; $i < $#array + 1; ++$i){
  print $array[$i] . "\n";
}

foreach my $s ( @array ){
  print "$s\n";
}
# OR one of many other ways like:
print $_."\n" for @array;