#! perl -slw
use strict;
use Data::Dump qw[ pp ]; $Data::Dump::MAX_WIDTH = 500;
use Seismic;

my $seismic = Seismic->new( 'seismic.dat' );

for my $lineID ( sort keys %{ $seismic } ) {
    my $line = $seismic->{ $lineID };

    for my $stnID ( sort{$a<=>$b} keys %{ $line } ) {
        my $stn = $line->{ $stnID };

        $stn->[ Easting   ] -= $stn->[ Easting  ] * 0.00001;
        $stn->[ Northing  ] -= $stn->[ Northing ] * 0.000002;
        $stn->[ Elevation ] += 1;

        $stn->[ Other ] = int(
            ( $stn->[ Easting   ]
            * $stn->[ Northing  ]
            * $stn->[ Elevation ]
            ) / 3.0
        );
    }
}