Shell Programming and Scripting

 %hash = (
        key1 => 'jeri',
        key2 => 'corona',
        key3 => 'una,
    );

#!/usr/bin/perl
 
%hash = (
key1 => "jeri",
key2 => "corona",
key3 => "una"
);
 
print "\nforward sort...\n\n";
 
foreach $key (sort {length($hash{$a}) cmp length($hash{$b})} keys %hash) {
   print "$hash{$key} $key " . length($hash{$key}) . "\n";
}
 
print "\nreverse sort...\n\n";
 
foreach $key (reverse sort {length($hash{$a}) cmp length($hash{$b})} keys %hash) {
   print "$hash{$key} $key " . length($hash{$key}) . "\n";
}