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


##</code><code>##

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

##</code><code>##

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

##</code><code>##

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