for $\ (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}

print $/;

for $_ (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}

#output
1 2 31 2 31 2 31 2 3
1 2 31 2 31 2 31 2 3