#!/usr/bin/perl -w
use strict;
my %hash;
for my $i (1..1000) {
    for my $j (1..100) {
        for my $k (1..100) {
            $hash{$i,$j,$k} = 1
        }
    }
}
print "Check Memory usage NOW and press enter\n";
my $chk=<>;
%hash=();
print "Check Memory usage NOW and press enter\n";
$chk=<>;