use strict;

my $coderef = undef;

$coderef = sub {print "SUB 1\n";};
$coderef .= sub {print "SUB 2\n";};
$coderef->();