Ouch. That's doing it the hard way. You're gonna eval on every sort invocation!

Better to do something like:

my $SortSub = eval "sub {
            return $sort_expr;
           }";
[download]

I didn't look at the rest of your code for possible eval hitches, though.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.