condition-file
---------------
K	01
J	02
I	03
H	04

##</code><code>##

file1
-------
K,01,data,japan,jung,kcika,Kisjl,01234
J,02,thaja,China,cunk,Jksb,Yjski,23456

##</code><code>##

foreach my $file_name (@array) {
    open FILE, "$file_name" or die "File not exists";
    while ( my $line = <FILE> ) {
        my ( $field1, $field2 ) = split /\,/, $line;
        if (exists $records{$field1}) {
            $field_2 = $records{$field1};
            if( $field2 eq $field_2 )
            {
                print OUTPUT $line;
            }
        }
    }
}