To replace a number with strings in a XML file using perl script

Question

I have a XML file. I need to replace the digits in comment="18" with comment="my string" where my string is from my @array ($array[18] = my string).