Select Code to Download

my %hashName = ( "term1" => 83, "term2" => 20, "term3" => 193 );
my ($max) = sort { $b <=> $a } values %hashName;

#!/usr/bin/perl

...
         Rate orig  new
orig 118737/s   -- -71%
new  410341/s 246%   --