foreach $name ( @names ){
    $name = ucfirst($name); # made first letter  
    $name =~ s/_(\w)/ \U$1/g;
    print "$name \n";
}