foreach @line ( @data ) ##

##

foreach $line ( @data )

##

##

if ( @line[0] ...

##

##

if ( $line[0]...

##

##

if ( $$line[0]...

##

##

if ( $line->[0] == $tree ... )

##

##

s/\@line/$line->/g;

##

##

$mdarray[$tree][$stem][$height] = $line;