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";
	
	#put a value onto number of names
	my $Numfirst = scalar(@nfirst);
	
	#Now I am hopefully be elegantr here and captialise and space them
	my $newfirst=();
	for ( my $i=0;$i < $Numfirst;$i++) {
	#print "name part is ".ucfirst $nfirst[$i]."\n";
	$newfirst .= join(" ",(ucfirst $nfirst[$i]) );
	
	}
	
	print "new first name is $newfirst\n";
	
	#doing it as per perldoc
	my $NewFirst= join(" ", 'Billy', 'Bob', 'Allan');
	
	print "new first name is $NewFirst\n";