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