perl -e'sub f{undef &f} ()=sort f 1,2'
  perl -e'sub f{goto sub{1}} ()=sort f 1,2'
  perl -e'@a=(1..10);@a=sort{@a=(1);0}@a'