#!/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;