use strict;
use warnings;
use diagnostics;
use 5.010;

my @inputArray = (1,2,3,4,5,6,7,8);
my $inputArrayLen = @inputArray;

my $counter = 0;
&traverseArray($inputArrayLen);

sub traverseArray{
	
	if($counter<=$inputArrayLen){
		print $inputArray[$counter];
		print "\n";
		$counter++;
		traverseArray($inputArrayLen);
	}
}