#!/usr/bin/env perl 
use strict;
use warnings FATAL => 'recursion';

my $i = 0;

one();

sub one {
	print "$i\n" unless ++$i % 10;
	push @_, 'foo';
	&one;
}