open (C,">${OUTPATH}/${C}");

open (A,"<${OUTPATH}/${A}");
@file_a=<A>;
close (A) or die "Cannot write $A file\n";


my $ll;

my $zeile;

$ll=1;

foreach $zeile (@lfile)
{
	
	chomp ($file[$ll]);
	
	
	$VALUE=substr($file[$ll],0,20);
	
	chomp ($VALUE);
	
	$VALUE = $VALUE * 1;
	
	
		open (B,"<${OUTPATH}/${B}") or die " Cannot open file $B for reading\n";
		@file_b=<B>;
		close (B) or die "Cannot write $B file\n";
		
		
		my $LINE;
		
		my @grep;
		
		@grep = (grep {$_ =~ /${VALUE}/} @file);
		
		$LINE = @grep;
		
		if ( $LINE eq 1 )
		{
			
			chomp ($grep[0]);
			
			print C "$grep[0]";
			
		}
		else
		{
			print C "$file[$ll]";
		};
		
$ll++;

};


close (C) or die "Cannot write $C file\n";