More idiomatic and a bit less syntax:

my @codesref;
push @codesref, sub { print "SUB 1\n" };
push @codesref, sub { print "SUB 2\n" };
$_->() for @codesref;
[download]