say for sub { map { "\U$_" } @_ } ->(qw( abc def ghi ));
# ABC
# DEF
# GHI