use strict;

my @codesref = undef;

$codesref[0] = sub {print "SUB 1\n";};
$codesref[1] = sub {print "SUB 2\n";};
foreach my $code (@codesref){
    $code->();
}