my @keys = sort {$hash{$a} <=> $hash{$b} }(keys %hash);