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

##</code><code>##

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