Select Code to Download

condition-file
---------------
...
J    02
I    03
H    04

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

foreach my $file_name (@array) {
    open FILE, "$file_name" or die "File not exists";
...
        }
    }
}