#!/usr/bin/perl
undef %hash1;
foreach ($i=1;$i<=1000;$i++) {
   foreach ($j=1;$j<=100;$j++) {
      foreach ($k=1;$k<=100;$k++) {
         $hash1{"$i^$j^$ik"} = 1;
  }
 }
}
print "Check Memory usage NOW\n";
sleep 10;
undef %hash1;
print "And Now\n";
sleep 10;