@xreflines=<XREF>;
#remove the blank lines from the araary
@xreflines = grep /\S/, @xreflines;


##</code><code>##

    $x=grep /$xrefvalue/, @xreflines;


##</code><code>##

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";
    }