my @newArray = map { (my $newStr = $str) =~ s/X/$_/; $newStr } @numbers;