recurse(split('','Hello World'));

sub recurse {
	my ($car,@cdr) = @_;
	print "$car\n";
	@cdr and recurse(@cdr);
}