use strict;
use warnings;

( @ARGV == 2 and -f $ARGV[0] and -f $ARGV[1] )
    or die "Usage: $0 input.table target.list\n";

my ( $infile, $targfile ) = @ARGV;
my $outfile = "OK.txt";
my $errfile = "ERROR.txt";

open( IN,  $infile )  or die "$infile: $!";
open( OUT, $outfile ) or die "$outfile: $!";
open( ERR, $errfile ) or die "$errfile: $!";
open( TARG, $targfile ) or die "$targfile: $!";

my %target;
while (<TARG>) {
    chomp;        # target.list has lines like "01005;11400"
    $target{$_} = undef;
}
close TARG;

while (<IN>) {
    my @fields = split /;/;  # assuming no quoted ";" within fields
    my $check = join ';', @fields[2,3]; # line-initial value is $fields[0]
                                        # so 3rd and 4th are  @fields[2,3]

    if ( exists( $target{$check} )) {
        print OUT;
    } else {
        print ERR;
    }
}
close OUT;
close ERR;