Select Code to Download

my( $x, $y, $z ) = $line[000301038][1261];

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

my( $x, $y, $z ) = @{ $line{ 000301038 }{ 1261 } };

...
## Assumes use constant { X=>0, Y=1, Z=>2 }

my $thisX = $line{ $line }{ $stn }[ X ];