my $keys = keys(%my) < 100 ? keys(%mh) : 100;
my @k = ( keys %mh )[0..$keys-1];

##</code><code>##

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

##</code><code>##

my @k = keys %mh;
splice( @k, 100 ) if @k > 100;