my @sorted = sort {$a -> [1] <=> $b -> [1]} values %hash;