use strict;
use warnings;

sub a1 { print("a1\n"); }
sub a2 { print("a2\n"); }

my @procs = (\&a1, \&a2);

foreach (@procs) {
    &$_;
}

# or for a more idiomatic approach
# enter anonymous subs directly into the array:

my @procs2 = (sub { print("this\n") },
              sub { print("that\n") }
             );

foreach (@procs2) {
    $_->();        # alternate form to call subroutine ref
}
[download]

------------------------------------------------------------
"Perl is a mess and that's good because the
problem space is also a mess." - Larry Wall