Select Code to Download

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

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

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