perl -MO=Concise -e 'for(@_){print}'
perl -MO=Concise -e 'for(@A,@B){print}'
perl -MO=Concise -e 'for(@A,@B,1){print}'