my @newArray = map { (my $newStr = $str) =~ s/X/$_/; $newStr } @number
+s;
[download]

Take some time to figure it out, then you'll understand. :-)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.