#!/usr/bin/env perl

use strict;
use warnings;

my %action_for;
%action_for = (
    test1 => sub {
        my ($input) = @_;
        print "*** Input: $input\n";
        print "Test 1 code\n"
    },
    test2 => sub {
        my ($input) = @_;
        $action_for{test1}->($input);
        print "Test 2 code\n";
    },
);

my @tests = qw{
    test1 test2 Atest1 test2B XYZ
    test1C test2D Etest1F Gtest2H
};

/(test\d)/ && $action_for{$1}->($_) for @tests;