$ perl -le" sub mysplice (\@$$@){ warn@_}  sub QQQ(\@$$@) { goto &mysplice } QQQ @a, 1,1"
ARRAY(0x97a064)11 at -e line 1.