Select Code to Download

K    1
J    2
L    3
H    4

file 01
K    01    JK    1234
J    02    HJ    5678
L    03    JH    6789
H    04    IH    5467

@filelist
---------
...
file 04
file 05
file 06

my @array;

...
foreach my $name (@array) {

}