# This script was excerpted from http://stackoverflow.com/questions/11678939/replace-text-based-on-a-dictionary
use strict;
use warnings;
#use Text::CSV;
use Data::Dumper; 
  local $Data::Dumper::Deepcopy=1;
  local $Data::Dumper::Purity=1;
  local $Data::Dumper::Sortkeys=0;
  local $Data::Dumper::Indent=3; 

open my $fh, '<', 'kegg_pathway_title.txt' or die $!;
my %dict =  map { chomp; split "\t", $_, 2 } <$fh>;
warn Dumper \%dict; 
for my $k (keys %dict) {
  my $v=$dict{$k}; 
  warn 'for lookup:'.$k.' tab in field:'.$v."\n" if ($v=~"\t"); 
  }
#my %dict =  map { chomp; split ' ', $_, 2 } <$fh>;
my $re = join '|', keys %dict;
#close $fh;
open $fh, '<', 'Orthogroups_3.csv' or die $!;

while (<$fh>) {
print $. ."\n";
  next if $. < 2;
  my @a0=split("\t",$_); warn Dumper \@a0; 
  s/($re)/$dict{$1}/g;
  print;
}