use strict;
my $name;
foreach $name (qw/alfred benjamin casey donald eugene/)
{
        print "$name\n";
}
print "*$name*\n";