Sometime along the way, things were changed so that you couldn't any longer use an open qw() in a for loop, you must enclose the qw statement in an outer list:

perl -wMstrict -E 'for my $d (qw(1 2 3)){say $d}'
1
2
3
[download]

I do not have time to dig through the perldeltas right now, but switching to 5.10.1, the following works:

perl -wMstrict -E 'for my $d qw(1 2 3){say $d}'
1
2
3
[download]