use strict;
use warnings;

my $hr = {};
my ($num, $size) = @ARGV;
print "$num, $size\n";

system("ps vp $$");
for (1..$num) {
    $hr->{$_} = 'memory' x $size;
}
system("ps vp $$");
undef $hr;
system("ps vp $$");