#!/usr/bin/perl 
 
sub test { 
  #Define local variables 
  my (%file_local,%hash_local); 
  my $i; 
   
  $file_local{'hash_output'} = "hash_dump.txt"; 
  open ( OUT_FILE, ">$file_local{'hash_output'}" ) or die "Can't open $file_local{'hash_output'}"; 
  print OUT_FILE "i,i+1\n"; 
   
  for ($i = 1; $i <= 100000; $i++) { 
    $hash_local{$i} = $i-1; 
    print "$i,$hash_local{$i}\n"; 
  } 
   
  close ( OUT_FILE ); 
   
  #Remove local variables 
  %file_local = %hash_local = (); 
} 
 
print "Exiting program gracefully ...\n"; exit 1;