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

##</code><code>##

Sub 1
Sub 2