my $sort_sub = do {
my @subs = ... stuff to build array

sub {
    foreach my $sub ( @subs )
       {
       my $result = $sub->();
       return $result if $result;
       }
    };

};