Ok, next attempt, take the ++ out of this line,

my $bullet = sprintf "%s%s. %s\n%s",
            tab, ++$incr, $key, $self->proc_array(@$val);
[download]

and see if it was causing the value of $incr to "pass thru".

--
$you = new YOU;
honk() if $you->love(perl)