foreach ( qw(a b c) )
{
    print $_."\n";
}