$ perl -wMstrict -le 'if(()=(2,1,0)) {print"true"}else{print"false"}' true