my @funcs = ();
push @funcs, 
	sub { print "middle\n"; },
	sub { print "bottom\n"; };

push @funcs, some_subroutine_that_returns_sub_refs();

foreach my $sub (@funcs) {
	&$sub;
}