($PDE,$year,$month,$day,$hour,$minute,$second,$eqlat,$eqlong,$eqdepth,$mag) = (split /\s+/,$tableb[$j])[0,1,2,3,4,5,6,7,8,9,11];