use strict;

#except to test my code

#do the fancy stuff here for multiple Christian names
#count how many firstnames

#first would have been read in from a text file, but is explicit here
my $first = "billy bob allan";
my @nfirst = ();
@nfirst = split (/\s/,$first);
print "name $first has ".(scalar(@nfirst))." names\n";

my @newfirst = map { ucfirst } @nfirst;

print "new first name is @newfirst\n";