Select Code to Download

R1-something.txt     R2-something.txt
DESCRP a             DESCRP a
...
DESCRP b             DESCRP c
3                    5
4                    9

a.txt     b.txt      c.txt
R1a       R1b        R2c
...
R2a
3
1

foreach my $file (@{$fileArray})
{
...
    close OUTPUT;
    close INPUT;
}