my $test = "sub3";

my @subs1 = (\&sub1, \&sub2, \&$test);

push (@subs1, \&sub4);

foreach (@subs1) {
	$_->();
}