Select Code to Download

    sub depth {
        my $arr = shift;
        return 1 unless ref $$arr[0] eq 'ARRAY';
        return depth( $$arr[0] ) + 1;
    }