@names = qw(user_name house_name street_address phone_number date_of_birth);

##</code><code>##

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