@runs = (
  sub {
    print "This is one subroutine\n";
  },
  sub {
    print "This is another subroutine\n";
  },
  # etc
);

$_->() foreach @runs;