use XML::Rules;

my $filter = XML::Rules->new(style => 'filter', rules => {
  'XREF' => sub { 
    return $references{$_[1]->{_content}} ?? "Unknown reference $_[1]->{_content}";
  }
});

$filter->filterfile($source_path, $result_path);