Select Code to Download

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

foreach (@array) {
   print "$_\n"
}

@squares = map { $_ * $_ } (@array);

foreach (@array) {
   push @squares, $_ * $_
}