my $info = "one:two:three:four";
my @arr = split(/:/, $info);
my $iLength = scalar @arr;

for(my $i=0; $i<$iLength; $i++) {
  $arr[$i] = uc($arr[$i]);
}
# @arr = ONE, TWO, THREE, FOUR

##</code><code>##

my $info = "one:two:three:four";
my @arr = uc split(/:/, $info);