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