my $keys = min 100, keys(%mh);
my @k = ( keys %mh )[0..$keys-1];