doUpper

sub doUpper {
my $inputString = shift;
my $stringLength = 0;
$stringLength = length($inputString);

my $loopCount = 0;

my $outputString = '';
my $char = '';

    for ($loopCount=0; $loopCount <= $stringLength; $loopCount++) {

        $char = substr($inputString,$loopCount,1);
           if ($char eq 'a') { $char = uc($char); }
        elsif ($char eq 'b') { $char = uc($char); }
        elsif ($char eq 'c') { $char = uc($char); }
        elsif ($char eq 'd') { $char = uc($char); }
        elsif ($char eq 'e') { $char = uc($char); }
        elsif ($char eq 'f') { $char = uc($char); }
        elsif ($char eq 'g') { $char = uc($char); }
        elsif ($char eq 'h') { $char = uc($char); }
        elsif ($char eq 'i') { $char = uc($char); }
        elsif ($char eq 'j') { $char = uc($char); }
        elsif ($char eq 'k') { $char = uc($char); }
        elsif ($char eq 'l') { $char = uc($char); }
        elsif ($char eq 'm') { $char = uc($char); }
        elsif ($char eq 'n') { $char = uc($char); }
        elsif ($char eq 'o') { $char = uc($char); }
        elsif ($char eq 'p') { $char = uc($char); }
        elsif ($char eq 'q') { $char = uc($char); }
        elsif ($char eq 'r') { $char = uc($char); }
        elsif ($char eq 's') { $char = uc($char); }
        elsif ($char eq 't') { $char = uc($char); }
        elsif ($char eq 'u') { $char = uc($char); }
        elsif ($char eq 'v') { $char = uc($char); }
        elsif ($char eq 'w') { $char = uc($char); }
        elsif ($char eq 'x') { $char = uc($char); }
        elsif ($char eq 'y') { $char = uc($char); }
        elsif ($char eq 'z') { $char = uc($char); }
        else { $char = $char ; }
        $outputString = $outputString . $char;
    }
  return $outputString;
}