while (1) {
    $i = 0;
  again:
    my $x;
    goto again if $i++ < 100_000_000;
}