my @list = ( { 'Name' => "Pete", 'Age' => 32 },
             { 'Name' => "Pete", 'Age' => 55 } );
my @sorted = sort { $a->{'Name'} cmp $b->{'Name'} ||
                    $a->{'Age' } <=> $b->{'Age' }   } @list;