use 5.010;
my @a = qw/a d/;
$_ = '0a1d1y0z';
say s/(\d)${a[\1]}/xx/g;
say;