use strict;
use warnings;

my $k="//programfiles/documents/data/lookup/script_auth_pap.h";
my $v="\\root\\edit\\perl\\scripts\\scripths\\sec\\inc\\script_auth_pap.h";

# -----------------------------------
# pick one or the other array or hash
# -----------------------------------

#my @aData;
#for (1..125000) {
#  push @aData, $k, $v;
#}

my %hData;
for (1..125000) {
  $hData{$k}=$v;
}

# -----------------------------------
# memory consumption output
# -----------------------------------

my $iPair = length($k) + length($v);
printf STDERR "Length of key-value pair: %d bytes; total data=%.2f M\n"
  , $iPair, (125001*$iPair)/(1028*1028);

warn `ps -o vsz -p $$ 2>NUL`, ' ';