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