while (<INPUT2>) {
    $_ =~ s/[\r\n]+\z//s; # I don't use chomp, sorry

    my ( $bioC, $contig_id, $pip ) = split( "\t", $_ );
    my $origin = $origins{$contig_id};
    print RESULTS "$bioC\t$origin\t$pip\n";
  }