Help for this page
$x=grep /$xrefvalue/, @xreflines;
my %xreflines = map { $_ => 1 } grep /\S/, <XREF>; ... $x = $xreflines{ $xrefvalue };