Yes, like this:

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

The parenthesis surrounding the sort turn the return value into a list which can be sliced like an array.