#! /usr/bin/perl -w

$echo="ECHO";
open (DFFILE,$ARGV[0]) || die "DF-file not found\n";
open (LIST,$ARGV[1]) || die "List not found\n";
while (<DFFILE>) {
	($value, $key) = split(/\t/, $_);
	$lijst{$key} = $value;
}
@listfiles = <LIST>;
#print @listfiles;
foreach $key (sort keys %lijst) {
#	print "The value associated with key $key is $lijst{$key}\n";
	if ($lijst{$key}==1) {
		my $word = $key;
		for $file (@listfiles) {
			open (FILE,"$file");
			open (OUT,">$file.out");
			while ($_=<FILE>) {
				if ($_ =~ m/^$word$/) {
					$_ =~ s/$word/$echo/g;
					$_ =~ s/$echo/$word/;
				}
				print OUT $_;
			}
			close(FILE);
			close(OUT);
		}
	}
}
close(DFFILE);