Select Code to Download

foreach my $file (@files){
# set up the XML parser:
...
 $twig->parsefile($file);
 $twig->purge;
}

sub topicref_processing {
  my($twig, $topicref) = @_;
...
   ### associate this keyref with $file
  }
}