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

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

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.