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