push @big, 1 while 1;
$foo = $bar = "BIGBIG"; while ($foo =~ s/BIG/$bar/) {}
sub oops {my $var = shift; oops($var);}