@sorted_keys = sort {   $foo{$a}[1] cmp $foo{$b}[1]   } keys %foo;