my @squares = map { $_ * $_ } ( 1,2,3,4,5,6 );
my @even_squares = map { $_ * $_ } grep  { $_/2 == int($_/2) } 
                                 ( 1,2,3,4,5,6 );
my @alpha_sorted_even_digits = sort { $a cmp $b } 
      map { [ "zero", "one", "two", "three", "four", 
                  "five", "six", "seven", "eight", "nine" ]->[$_] } 
      grep { $_/2 == int( $_/2 ) } ( 1,2,3,4,5,8,9 );