Help for this page
$line[ 1 ][ 2 ] = [ 3,4,5 ];; ... Use of uninitialized value in print at ... Use of uninitialized value in print at ...
my( $x, $y, $z ) = @{ $line[ 1 ][ 2 ] };; ... 3 4 5