my @a;
my @b;

for (0 .. 2 ** 16 - 1) {
    if ($ARGV[0]) { 
        $a[$_][0] = $_;
        $a[$_][1] = $_;
    }
    else {
        @a[$_] = $_;
        @b[$_] = $_;
    }
}

system "grep ^VmSize /proc/$$/status";

__END__

##</code><code>##

VmSize:	   11844 kB
3670208

##</code><code>##

VmSize:	   16996 kB
10748112