sub capitalize {
    $_[0]="\u$_[0]";
}