1234567891011
#!/usr/bin/perluse warnings;use strict;my %hash = (); keys %hash 10000;while() { # fill hash}