Fix qw() sins

Always wrap qw() inside () in a foreach for modern perl.