$lastname =~ s/^([a-z])/\u$1/;