Select Code to Download

my @arr = map uc, split(/:/, $info);

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

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

$_ = uc for @arr