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