push (@holdmutual,$mutual);
            print "vaggos3\n";
}
       
        
        #print " $l,$j,$mutual\n";
      
   }
   
   #end of loop2 for each site2
 
   #print " $l,$j,$mutual\n";
}
      #getting always the highest mutual inforamtion value for each site combination.
        my $highestvalue=0; 
        foreach my $holdmutual(@holdmutual){
        if ($holdmutual>$highestvalue){
            $highestvalue=$holdmutual;
            }print "vaggos4\n";
       }
        print "$highestvalue\n";