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

bar();

sub bar {
    my $result = foo();
    if ( $result ) {
        goto &bar;
    }
    return;
}

my $i = 0;
sub foo {
    return $i++ < 1_000_000_000;
}