Select Code to Download

 ## Declare few single dimensional array 
my @row1 = qw(71 22 15 10 51); 
my @row2 = qw(91 82 28 11 91); 
...
   print "\n";
}

            for ($aaa=0; $aaa<=$#unique_species; $aaa++) # The @unique
+_species is Chimp,Dog,Horse,Human,Monkey,Pig,Rat
...
undef @target_species;  undef @species; undef @chromosome;undef @matri
+x; undef @brk_cordinates;  undef @target_brk_cordinates;  undef @da; 
+  undef @brk_decision;
undef @dog_brk; undef @horse_brk; undef @monkey_brk; undef @pig_brk; u
+ndef @human_brk; undef @chimp_brk; undef @rat_brk; undef @mouse_brk; 
+undef @pig_brk; undef @dog_brk; undef @horse_brk; undef @cattle_brk; 
+undef @allBreakpointCoordinates; undef @all_sps_array;
undef @allDecision;  undef @matrix;