#!/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 for 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 \$data ( $data )  in \$names \n";
		}
	}
}

close NAMES;
close DATA;