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