my %subst;
@subst{@name} = ( 1 .. @name );
$phylo =~ s/(\w+)/$subst{$1}||$1/eg;