my @names = qw(A B C);
foreach my $name (<@names>) {
	print "$name\n";
}