use warnings;
use strict;
use feature 'say';

my $i = 0;

recurse();

sub recurse {
    say ++$i;
    recurse() if $i < 5;
}