Select Code to Download

condition_file
K    01
J    02
H    03
I    04

open F, "$condition_file" or die "File not exists";
while (<F>) {
chomp;
$records{$field1} = $field1;
}

@array
--------
...
file-2
file-3
file-4

file-1
-------
...
K,11,Europe5,Sweden6,Mace3,rank16,check11,42234

foreach my $file_name (@array) {
open FILE, "$file_name" or die "File not exists";
...
{
print OUTPUT ( ( join ",", $field1, $field2 ), "\n" );
}}}}

output file
-------------
...
K,01,
H,03,
I,04,

output file
-------------
...
K,01,Europe1,Sweden4,Mace1,rank15,check1,12234
H,03,German2,Ger,hgtk,rank4,hekc,1245
I,04,Negria2,neg,ghsjk,rankk1,jusk,4562