Select Code to Download

use strict;
use warnings;
...
print "$_ => $hash{$_}\n" 
   foreach(sort{$hash{$a} cmp $hash{$b}} keys %hash);

4323 => Average
...
1499 => Very High
26191 => Very High