my @chars = qw( a b c );

for my $char ( @chars ) {
   $char = uc( $char );
}

say "@chars";  # A B C