$x = $name;
$x =~ s/^(.)/\u$1/;