Are you sure?

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

prints 212