my @bar = sort{@{$foo->{$a}} cmp @{$foo->{$b}}} @$foo;

##</code><code>##

my @bar = sort{$foo->{$a} cmp $foo->{$b}} @$foo;
##</code><code>##

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.