Ah, good point. This msaaivley cut down version still produces the same bloat.

Rewriting the code is an option, but not one I'd like to go into unless there is no other hope.

#!/usr/bin/perl -w

use strict;

my %a = ();
my $res = `ps v $$`;
print "$res\n";

for my $line ( 1 .. 19000 ){
  for ( "AA" .. "DZ" ){
     $a{$line}{"$_$line"} = $line;
    }
 }

$res = `ps v $$`;
print "$res\n";

exit 0;
[download]