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

##</code><code>##

sub Foo () {
    
}
time ? @a = () : $a = Foo;

##</code><code>##

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

##</code><code>##

Assignment to both a list and a scalar at -e line 1, near ");"