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