- or download this
open my $IFILE, '<', $IDFILE || die "Could not open $IDFILE: $!";
- or download this
while ( my $ifile_line = <$IFILE> ) {
my $hits = substr($ifile_line, 0, 6);
push @id_hits, $hits;
}
- or download this
my @id_hits=map substr($_, 0, 6), <$IFILE>;