my @caps = grep { $_ =~ /^[A-Z]/ } qw( This is for Edna );

##</code><code>##

my @caps = grep { /^[A-Z]/ } qw( This is for Edna );

##</code><code>##

 my @vowel_caps = grep { /^[A-Z]/ } grep { /^[aAeEiIoOuU]/ } 
                                      qw( This is for Edna );

##</code><code>##

  my @numbers = sort { $b <=> $a } ( 23,5,23,64,2);
  my @words = sort { $b cmp $a } 
                         ( "this", "Is", "sortingly", "something" );
  my @owords = sort ( "default", "operator", "is", "text", "sort" );
  my @things = sort { $a->{order} <=> $b->{order} }
                    ( { name => "foo", order => 4 }, 
                      { name => "bar", order => 88 }, 
                      { name => "baf", order => -12 } );
  my @things = sort { $a->{order} <=> $b->{order} ||
                               $b->{name} cmp $a->{name} }
                                    ( { name => "foo", order => 4 },
                                      { name => "bar", order => 88 }, 
                                      { name => "baf", order => -12 },
                                      { name => "zoo", order=>88 } );

##</code><code>##

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 );

##</code><code>##

my @doubled = map { $_, $_ } ( 1,3,4,5,6,6 );
my @flattened = map { @$_ } ( [ 1,2,3], [ "A","B","C" ], [ $var1, $var2, $var3 ] );
my %squares_hash = map { $_ => $_ * $_ } ( 1,2,3,4,5,6 );