for($i = 0,my $k = 1; $i<= $#name; ++$i,++$k){
    $phylo =~ s/($name[$i])/$k/}
  print("$phylo \n");