Fix use of qw as parentheses in loop

This is no longer valid in perl 5.18, should have warned terribly in 5.16. 

https://metacpan.org/pod/release/RJBS/perl-5.18.0/pod/perldelta.pod#qw-...-can-no-longer-be-used-as-parentheses