use Lingua::EN::NameCase qw( nc );

foreach my $name(qw( mcginley macgee develera )){
   print nc( $name ), "\n";
}