$newfirst .= join(" ",(ucfirst $nfirst[$i]) );

##</code><code>##

@nfirst = map { ucfirst $_ } @nfirst;

##</code><code>##

my $NewFirst = join " ", @nfirst;

##</code><code>##

my $NewFirst = join " ",
                   map { ucfirst $_ },
                   split /\s+/, $first
    ;