>perl -e"print qq{$_: $$_\n} for \( 'a', 'b', 'c' );"
SCALAR(0x239b9c): a
SCALAR(0x239c9c): b
SCALAR(0x239cec): c

>perl -e"print qq{$_: $$_\n} for \qw( a b c );"
SCALAR(0x239b9c): a
SCALAR(0x239c9c): b
SCALAR(0x239cec): c

>perl -e"@a = qw( a b c ); print qq{$_: $$_\n} for \(@a);"
SCALAR(0x239bac): a
SCALAR(0x239c5c): b
SCALAR(0x239cac): c

>perl -e"@a = qw( a b c ); print qq{$_: @$_\n} for \@a;"
ARRAY(0x1829a04): a b c