package Station;
...
sub adjustAttributes { 
    my( $self ) = shift;

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

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