$ perl -w
use strict;
sub addcoderef {
   use B::Deparse;
   my $d = B::Deparse->new();
   eval join "\n", "sub {", map($d->coderef2text($_), @_), "}";
}
my $coderef = sub { print "SUB1\n"; };
$coderef = addcoderef( $coderef, sub { print "SUB2\n"; } );
$coderef->();
__END__
SUB1
SUB2