use strict;
use warnings;

sub recurse {
	my $value = shift;
	recurse ( $value - 1 ) if $value > 0;
	print $value, "\t";
}

recurse( 99 );