Select Code to Download

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

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

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

  my @numbers = sort { $b <=> $a } ( 23,5,23,64,2);
  my @words = sort { $b cmp $a } 
...
                                      { name => "bar", order => 88 }, 
                                      { name => "baf", order => -12 },
                                      { name => "zoo", order=>88 } );

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

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