use Sort::Key::Top qw(nkeytopsort);

my @top20 = nkeytopsort { $Averages{$_} } 20 => keys %Averages;