use strict;
my @commands = (
  sub {print "hello\n"},
  sub {print "world\n"},
);

foreach my $command (@commands) {
  $command->();
  # Or use args like this: $command->($arg1,$arg2);
}