And that's not the only way! :-) You can use some regexp too.

$a = 'haha';
$a =~ s/^([a-z])/\U$1/; 
print $a;
[download]

-- tune