xanmn_chr09_0114-xanmn_chr09_0114   3346

xanmn_chr09_0129-xanmn_chr09_0129   3358

xanmn_chr09_0116-xanmn_chr09_0116   3348

xanmn_chr09_0127-xanmn_chr09_0127   3354


##</code><code>##


3346
1933 
1371 
1448
2762 
1395


##</code><code>##


open(FILE1, "<", table.txt)

open(FILE2, "<", values.txt)

my %ids2proteins=();

   while(my $row = <FILE2>){
   chomp $row;
   
   my @column = split(/\t/, $row);
   my $protein_number = $column[0];
      
      while(my $line= <FILE1>){
      chomp $line;
      
      my @fields = split(/\t/, $line);
      my ($ids,$proteins) = ($fields[0],$fields[1]);
      $ids2proteins{$ids} = $proteins;
      
      foreach my $keys(keys %ids2proteins){
         my $values = $ids2proteins{$keys};
         
         if($values eq $protein_number){
            print "$keys => $protein_number";
}}}}