sub size_of_an_array { my($i, @array) = @_; ... return(++$i, 1 + size_of_an_array(@array));