# This array of hashes keeps track of all test results
my @tests = (
    { name    => 'Ping Test',
      subname => \&pingtest,
      result  => 'Not performed'
    },
    { name    => 'Remdial',
      subname => \&remdial,
      result  => 'Not performed'
    }
);

# Loop through array of hashes and perform each test subroutine.
foreach $x (@tests){

    # Call subroutine.
# What is the correct way to state this?
# Without the references I would normally state
# $result = testsub();
    $x->{'result'} = $x->{'subname'}->();
    print $x->{'result'}."\n";

    # Stop testing if there is a failure.
    if ($x->{'result'} =~ m/Fail/) { last; }
}

sub pingtest {print "ping\n"; return 123}
sub remdial {print "dial\n"; return 456}
[download]

Output:

ping
123
dial
456
[download]

$x->{'result'} = &{$x->{'subname'}}();
[download]

Howdy!

$x->{subname}->() (as seen in the original code) also works fine. In fact, I would tend to prefer that over using the ampersand sigil.

yours,
Michael

Your code looks fine...did you try it?

# Your code here ...

sub pingtest { print "I'm pingtest sub\n" }
sub remdial  { print "I'm remdial sub\n"  }
[download]