for my $name (@nfirst)
{
  print "Hello $name\n";
}