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";

##</code><code>##

my $NewFirst= join(" ", 'Billy', 'Bob', 'Allan');
print "new first name is $NewFirst\n";