my @a = apply { s/a/X/g } qw( arriba abajo );  # XrribX XbXjo