my %xreflines = map { /(\d+)/, 1 } <XREF>;


    unless ( exists $xreflines{ "$DISTID1$CUST1" } ) {
        print LOG "\$x value is $x \n";
        print LOG "\$line is $line \n";
        print XFILE "$line \n";
    }