perl -le 'my $f = 1; ($f > 0 ? @a : $a ) = ("a", "b", "c")' Assignment to both a list and a scalar at -e line 1, at EOF Execution of -e aborted due to compilation errors.