I've made vanilla Perl (ie no non-Perl extensions loaded) segv a number of times. I voted three only because I can't remember precisely; in reality it's probably more like 5 or 6. Almost all of them involved slushing around in the symbol tables one way or another (local trickery ranks high on the list); one of them was DESTROY related. I never took notes though. (In retrospect - maybe I should have perlbugged them?)