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