my @fields = split /\|/, $_;
my($clliA,$clliB) = @fields[14,15];