foreach my $g( (sort {$Averages{$a} <=> $Averages{$b}} keys %Averages)[0..19] ){
    print $g,"\t",$Averages{$g},"\n";
}