perl -le"print scalar sub { my @a = qw(a b c d); return (@a,@a) }->();"