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