#!/usr/bin/perl

$j=0;

$b=increment($j);



sub increment{

my $j=shift(@_);


++$j;

if ($j<10){
	$c=increment($j);
	print $c;
	return $j;
}

#return $j;

}