my @keys = (1..10572);
my %hash;
@hash{@keys} = undef;

print "Size of keys: ".keys %hash,"\n";
print "Bucket details: ".%hash."\n";

keys %hash = 20000;
print "Bucket details: ".%hash."\n";