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

##</code><code>##

my %xreflines = map { $_ => 1 } grep /\S/, <XREF>;

...

    $x = $xreflines{ $xrefvalue };