use strict;
for ("a","b","c")
{
        print $_ . "\n---\n";
} # ;-)