my ($PDE,$year,$month,$day,$hour,$minute,$second,$eqlat,$eqlong,$eqdepth,$mag) = (split /\s+/,$tableb[$j])[0..9,11];