foreach 1..6 { my $foo = "perl" x 1000000; sleep 5; }