my @squares = my_map sub { $_[0]*$_[0] }, 1..3;