sub namecase {
  my(@names) = @_;
  s/(\w+)/\L\u$1/g for @names;
  return @names;
}

# For example:
print join "\n" => namecase('RONNIE NUNN', 'RON OLESIAK');
print "\n";