Select Code to Download

my $newfirst=();
    for ( my $i=0;$i < $Numfirst;$i++) {
...
    }

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

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