my($clliA, $clliZ) = (split /\|/)[14,15];