#!/usr/bin/perl
use strict;
use warnings;

# 777297

my $data_file = "test1.txt";
open(DATA, $data_file) || die("Could not open file!");
my @data_file = <DATA>;

my $names_file = "code.txt";

open(NAMES, $names_file || die "Could not open file!");
my @names_data = <NAMES>;

# create loop that reads each ID in code.txt (NAMES array), searches f
#+or each in array elements for #test1.txt
# (DATA array), redirects a new (NAMES).html for each element

my ($names, $data);
for $names(@names_data) {
    chomp($names);
    for $data(@data_file) {
        chomp ($data);
        if ($data =~ /$names/) {
            print "found \$names ( $names ) in \$data \n";
push @data, qq | > $names.html "\n";
}
    }
}

close NAMES;
close DATA;