# Pick a more descriptive name for this hash, depending on your need
my %subroutines = (
  test         => \&test,
  another_test => \&another_test,
  third_test   => \&third_test,
);

for (qw(test another_test third_test)) {
  $subroutines{$_}->();
}