say join ("\n", map {"$_,\t$Averages{$_}"} (sort {$Averages{$a} <=> $A
+verages{$b}} keys %Averages)[0..19]);
[download]