$size = 20000;

# make a hash
for ($key = 0 ; $key < $size ; $key += 2 ) {
   $hash{$key} = [ ( 0..100 ) ];
}

# make an array, wasting 50% of the spaces
#for ($key = 0 ; $key < $size ; $key += 2 ) {
#   $ary[$key]  = [ ( 0..100 ) ];
#}

print "Made big data structure, sleeping 20 seconds!\n";
sleep 20;