#!/usr/bin/perl
use warnings;
use strict;

my %hash;

for(1..100000){
 $hash{$_}= 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
}

print "check mem and hit enter\n";
<>;