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