%hash = ( Elliot => Babbage,
          Charles => Babbage,
          Grace => Hopper,
          Herman => Hollerith
        );
@sorted = map { { ($_ => $hash{$_}) } }
              sort { $hash{$a} cmp $hash{$b}
                     or $a cmp $b
                   } keys %hash;
foreach $hashref (@sorted) {
    ($key, $value) = each %$hashref;
    print "$key => $value\n";
}

##</code><code>##

my %data = (bananas => 1,oranges => 7,apples => 12, mangoes => 3,pears => 8,);
# Using <=> instead of cmp because of the numbers
foreach my $fruit (sort {$data{$a} <=> $data{$b}} keys %data) {
    print $fruit . ": " . $data{$fruit} . "\n";
}