Select Code to Download

open my $IFILE, '<', $IDFILE || die "Could not open $IDFILE: $!";

while ( my $ifile_line = <$IFILE> ) {
    my $hits = substr($ifile_line, 0, 6);
    push @id_hits, $hits;
}

my @id_hits=map substr($_, 0, 6), <$IFILE>;