# same initialization as before

traverseArray($counter, @inputArray);

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