#!/usr/bin/perl
use strict;
use warnings;

my $i = 0;
bar();
sub bar {
    goto &bar if foo();
    return;
}
sub foo {return $i++ < 1_000_000_000;}