don't use qw() as implicit list in for loops

This is deprecated in perl 5.14.
one