my ($col, $row)= unpack ("x18 v2", $temp);