my %hash;

for ( 1 .. 100000 ) {
  $hash{$_} = "What did you try?";
}

print "We just created a hash with ", scalar( keys %hash ), " elements.\n";