Kevin

my $foo = [ 'a', ['b', 'c', [ 'd' ]] ];

print counter($foo);

sub counter
{
    my $foo = shift;

    my $count = 0;

    foreach (@$foo) {
        $count += ref($_) eq 'ARRAY'? counter($_) : 1;
    }
    return $count;
}