my @array = ();

my $counter =0;

recurse();

sub recurse {
	push @array, $counter++;
	return if $counter > 25;
	recurse();
}