perl for qw() -> for (qw())