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