if ($self->{sort}) {
    @out = (ref($self->{sort}) eq 'CODE') ?
                       (sort {&{$self->{sort}}($a,$b)} @out) :
                       (sort @out);
}