TMTOWTDI, of course, but how about:

foreach my $key (sort { substr($hash{$a}, -2) cmp substr($hash{$b}, -2
+) } keys %hash) {
   print $key . ' ' . $hash{$key} . "\n";
}
[download]

Tested, seems to work.