Select Code to Download

my $obj = Foo->new( sort => 1);
...
  ...

while (my $val = $obj->next) {

if ($self->{sort}) {
...
                       (sort {&{$self->{sort}}($a,$b)} @out) :
                       (sort @out);
}