use strict;
my $name;

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