<snip> >> print [ sort { $common_rates{$b} <=> $common_rates{$a} } keys %common_rates ]->[0]; Definitely shorter, but less readable (at least for us newbs). Is it noticably faster?