for $x qw(a b c) { ... }

##</code><code>##

        for $x (qw(a b c)) { ... }

##</code><code>##

        use POSIX qw(setlocale localeconv);
        our @EXPORT = qw(foo bar baz);