my( $x, $y, $z ) = @{ $line[ 1 ][ 2 ] };;

print for $x, $y, $z;;

3
4
5