perl -MO=Deparse  -e 'sub Foo() {}; (time ? @a : $a) = Foo();'