foreach my $name (@names)