my @tests = (
    { name => 'test1', 
      code => sub { print "this is test 1\n"; },
    },
    { name => 'test2', 
      code => sub { print "this is test 2\n"; },
    },
);
for my $t (@tests)
{
    print "Test $t->{name} is currently running\n";
    $t->{code}();
}