foreach $name ( @names ){
    $name = ucfirst($name); # made first letter  
    $name =~ s/\_(\w)/\ uc($1)/ge; # Here is the point.  
    print "$name \n";
}