my @data = qw(foo bar baz);
@data = map { s/./X/ } @data;
print "@data\n";