for my $key (sort { $hash{ $a } <=> $hash{ $b } } keys %hash) {}