use strict;
use warnings;
use 5.014;

my %interesting;
for (qw/ abc cmc uep a{3}/) {
	$interesting{$_} = sub { say "got '$_'!"};
}


# process data and apply tests
for (@ARGV) {
    foreach my $test (keys %interesting) {
        /^\s*$test\s*$/ and $interesting{$test}->();
    }
}