open(tfl_file, $target_file_layout) || die "Unable to open target file layout metadata file $target_file_layout: $!\n";
		foreach (<tfl_file>) {
			if($_ =~ /$ARGV[0]/){
				chomp $_;
				@tfl_contents = split(/\&/, $_);
				if ($tfl_contents[9] ne ""){
					$target_list{$tfl_contents[9]}++;
					push(@target_file, \@tfl_contents);
				}
				if ($debug eq "Y") {
					print "Source Found in Metadata: $_\n";
					print "Contents Array = @tfl_contents\n";
					print "Contents Ref = @$tfl_ref\n";
					print "Element = $tfl_ref->[1]\n\n";
				}
			}
			else{
				#Do Nothing
			}
		}
		print Dumper(\@target_file);
		sleep;
		@tfl_list = keys %target_list;
		if ($debug eq "Y") {
			print "TARGET_LIST = @tfl_list\n";
		}
	close(tfl_file);