$hash{ int rand( 120000 ) } = 1 for 1 .. 5000;;

$t = time; 
exists $hash{ $_ } and ++$c for 1 .. 120000; 
print $c; printf "%.6f\n", time() - $t;;
4647
0.035816