for my $tree (0..17) {
                for my $stem(0..10) {
                        for my $height (0..2) {
                                my $line=$mdarray[$tree][$stem][$height];
                                if (defined @$line) {print "$tree,$stem,$height : @$line \n"    }
                        }       
                }
        }