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