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";
  }

##</code><code>##

  my $origin = $origins{$contig_id};
  if ( ! defined( $origin ) ) {
    die( "No mapping for \"$contig_id\" found in origins table" );
  }