$a =~ s/a/$a[int(rand(@a))]/ge;