my @word = qw(one two three four five);
for ( @word ) {
    $_ = uc( $_ );
}
print "$_\n" for @word;