$ perl
$x=1<<30;
for(1..$x){last;}
warn "first";
for(eval "1..$x"){last;}
warn "second";
__END__
first at - line 3.
core dumped