Select Code to Download

open IN1,"cat $DATA_DIR/$INFILE_NAME |" or die "Can't open $INFILE_NAM
+E: $!\n";

open my $in1FH, q{<}, $DATA_DIR/$INFILE_NAME
   or die qq{Can't open $INFILE_NAME: $!\n};

my @numbers = ();
while( <$in1FH> )
...
    chomp;
    push @numbers, $_;
}

chomp( my @numbers = <$in1FH> );

my @filesToRead = ( populate this list somehow );
...
...
    }
    close $in2FH or die qq{Can't close $file: $!\n};
}