$ perl -wle 'my @ar = qw(one two three); print "@ar"; my @new = map { $_ = uc } @ar; print "@new"; print "@ar"'
one two three
ONE TWO THREE
ONE TWO THREE