my $max = 100;
my @list = grep $max-- > 0, keys %hash;