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

##</code><code>##

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

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

##</code><code>##

$_ = uc for @arr