for (@arr) {
  $_ = uc;
}
[download]

That may be the "Perl way", but according to the Damian Conway-authored Perl Best Practices, a better way would be:

for my $index (@arr) {
  $index = uc $index;
}
[download]