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

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

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