Okay, here's one I just found...

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

-sauoq
"My two cents aren't worth a dime.";