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