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