Select Code to Download

my @in_fh;
my $count = 0;
...
__DATA__
one.txt
two.txt

    while (my $line = readline $in_fh[$i] ) {

while (my $line = <{$in_fh[$i]}>) {