my $foo;
if (1) { $foo = "perl" x 1000000;  sleep 5; }
if (1) { $foo = "perl" x 1000000;  sleep 5; }
if (1) { $foo = "perl" x 1000000;  sleep 5; }
if (1) { $foo = "perl" x 1000000;  sleep 5; }
if (1) { $foo = "perl" x 1000000;  sleep 5; }
if (1) { $foo = "perl" x 1000000;  sleep 5; }