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

...

    $x = $xreflines{ $xrefvalue };