perl -MO=Deparse -e '
(@n=(1,2) && ($n[1],$n[0]));
((@n=(1,2)) && ($n[1],$n[0]));
(@n=(1,2) and ($n[1],$n[0]));  
'
@n = ('???', 2) && ($n[1], $n[0]);
$n[1], $n[0] if @n = (1, 2);
$n[1], $n[0] if @n = (1, 2);