perl -we "use strict; sub subby(&\@\@){print qq|in subby..@{$_[2]};\n|}; my @x=subby sub{print qq|calling...|},my @c, @{[ grep {/\d/} 0..6]}"