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