Select Code to Download

my $code = sub {print "Sub 1\n"};
$code = joincoderefs( $code, sub {print "Sub 2\n"});
...
    my @refs = @_;
    return sub { $_->() for @refs };
}

Sub 1
Sub 2