%inv=(
    Apple   => 10,
    Peach   => 5,
    Berry   => 9,
    Cobbler => 3,
    Cherry  => 7
);

print "\nSort values numerically in ascending order\n";
foreach $key ( sort {$inv{$a} <=> $inv{$b}} keys %inv) { &print_it }

print "\nSort values numerically in descending order\n";
foreach $key ( sort {$inv{$b} <=> $inv{$a}} keys %inv) { &print_it }

print "\nSort keys alphabetically in alphabetical order\n";
foreach $key ( sort {$a cmp $b} keys %inv) { &print_it}
print "\nNote this is the same as\n";
foreach $key ( sort keys %inv) { &print_it}

print "\nSort keys alphabetically in reverse alphabetical order\n";
foreach $key ( sort {$b cmp $a} keys %inv) { &print_it }


sub print_it {
   print "$key\t=> $inv{$key}\n"
}