Using an array as a reference is deprecated at /tmp/3dgraphics2.perl line 989.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl line 990.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl line 1094.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl line 1096.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl line 1129.

##</code><code>##

       @{$zbuffer}->[$x]->[$y]

##</code><code>##

       $$zbuffer[$x][$y]

##</code><code>##

       my $rec = {
                  edge => [$A, $B],
                  dx   => abs($X1 - $X2),
                  dz   => $Z1 - $Z2,
                  z    => ( $X1 < $X2 ) ? ($Z1) : ($Z2)
                  };