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