Select Code to Download

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

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

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

>perl -le"@a = 'a' x 5; print 0+@a"
1
...

>perl -le"@a = sub { qw( a ) }->() x 5; print 0+@a"
1