my @mem = [];
my $i;
for ($i, $i < 9999999, $i++){
	push(@mem, "M"x99999999);
}

my @mem2 = [];
for ($i, $i < 9999999, $i++){
	push(@mem2, "M"x99999999);
}

my @mem3 = [];
for ($i, $i < 9999999, $i++){
	push(@mem3, "M"x99999999);
}

my @mem4 = [];
for ($i, $i < 9999999, $i++){
	push(@mem4, "M"x99999999);
}