@rtoa{ split//, uc($_) }