$ perl -e '
(@n=(1,2) && ($n[1],$n[0]));
(@n=(1,2) && ($n[1],$n[0]));
(@n=(1,2) && ($n[1],$n[0]));
'
Segmentation fault