$ cat junk877828.pl
#!/usr/bin/perl --
use strict;
use warnings;

use Data::Dumper;
my $k = q!.\root\edit\perl\scripts\scripths\sec\inc\script_auth_ttls.h
+-34349;perforcePLF.txt!;
my $v = q!//source/new/text/files/data/script_auth_ttls.h - label : 5 
+!;
#~ $k = $k.$k;
#~ $v = $v.$v; 

my %h;
for ( 0 .. 125000 ){
    $h{"$k$_"} = "$v$_";
}
warn `pslist -m $$ 2>NUL`, ' '; # for linux, i think its `ps v PID ` 
print Dumper(\%h);
warn `pslist -m $$ 2>NUL`, ' ';
__END__
$ perl junk877828.pl 1>1 2>2

$ du -h 1
22M     1

$ cat 2
Process memory detail for NAME:

Name                Pid      VM      WS    Priv Priv Pk   Faults   Non
+P Page
perl               1016   81668   36164   34008   34008     9053      
+2   29
  at junk877828.pl line 15.
Process memory detail for NAME:

Name                Pid      VM      WS    Priv Priv Pk   Faults   Non
+P Page
perl               1016  148300   71284   68984  126816    58626      
+2   29
  at junk877828.pl line 17.
[download]