Select Code to Download

use strict;
use warnings;
...

print name_search 'John Smith', \@criteria;
print "\n";

while(<$data>) {
  chomp;
...
  print OUT1 join( "\t", $found_tag, @line[0..13] )."\n" if $found_tag
+;
}
close $data;