use strict;
use warnings;

my @inputArray = (1..8);
my $counter = 0;

traverseArray($counter);

sub traverseArray {
    my $counter = shift;
    return if $counter >= @inputArray;
    print "$inputArray[$counter]\n";
    traverseArray($counter+1);
}