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

open (A,"<${OUTPATH}/${A}");
@file=<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>;
                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++;

};