Select Code to Download

my @line = (
    [  ## $line[ 0 ]
...
);

my( $x, $y, $z ) = $line[ $lineNo ][ $stationNo ];

lineName        stn.                     east...north...elev.
000301038       1260 52205121N109153806W 618485158009020 6626
...
000301016        400 52153542N109482654W 581401057903909 6738
000301016        401 52153542N109482522W 581426057903913 6738
000301016        402 52153542N109482390W 581451057903918 6738

my( $x, $y, $z ) = $line[000301038][1261];
...
print "$x, $y, $z";    # Result: 6185101, 58009027, 6623