for(my $i=0; $i<$iLength; $i++) {
  $arr[$i] = uc($arr[$i]);
}