$ perl -e "
sub a{return (1,2)}
sub b{print scalar @_,
            map $$_, @_}
b(\a());"