Select Code to Download

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

use strict;

...
my @newfirst = map { ucfirst } @nfirst;

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