Even Perl 1 had subroutines. I don't have time to look at how sort worked then, but I do remember having to say somethign like do &subname to make subroutine calls in Perl 1.

Of course, now that I post, I immediately realize you probably meant didn't have lexicals, which is true.