for (0 .. $#name) {
  $phylo =~ s/\Q$name[$_]\E/$_+1/e;
}