Select Code to Download

@name = qw (CH7 1CP5 1LHT 1SPG 1FAW 1HBR 1WMU 1F5P 1UC3 3LHB 1IT2); 
$phylo = "9 -2393.2 (((CH7,1CP5),1LHT),1SPG,1FAW,1HBR,1WMU)))),((1F5P,
+3LHB),1UC3),1IT2)"; 
...
    $phylo =~ s/($name[$i])/$k/;
  }
  print("$phylo\n");

CH7     0       1
1CP5    1       2
...
3LHB    9       10
1IT2    10      11
9 -2393.2 (((1,2),3),4,5,6,7)))),((8,10),9),11)