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