use strict;
use warnings;

my %Ave =
   map { $_ => rand }
   q{a} .. q{z};

print do
   {
       my $count = 0;
       map  { qq{$_\t$Ave{ $_ }\n} }
       grep { $count ++ < 20 }
       sort { $Ave{ $a } <=> $Ave{ $b } }
       keys %Ave;
   };