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