$ perl -e'@a=(1,1);map{sort{@a=()}@a}@a' Segmentation fault