C:\test>perl -E"++$h{ int( rand 65536 ) } for 1 .. 1e6; say scalar keys %h; grep{ $_ & 1 } keys %h or say 'No odd numbers found'"
32768
No odd numbers found