sub one { my $a = 'x' x 1024; my @b = ($a) x 102400; }
sub two { my $c = 'x' x 1024; my @d = ($c) x 102400; }

sub three { my $w = 'x' x 1024; my $x = $w x 102400; }
sub four  { my $y = 'x' x 1024; my $z = $y x 102400; }