#!/usr/bin/perl -w
use strict;

my @kPatterns =
    (
    ['aaaaa', 'bbbbb', 'ccccc', 'ddddd',],
    ['eeeee', 'fffff', 'ggggg', 'hhhhh',],
    ['iiiii', 'jjjjj', 'kkkkk', 'lllll',],
    );

for my $test ('yyjjjjjxx', 'ddddd') {
    my $match = scan($test);
    
    print "Matched $test using $match\n" if $match;
}


sub scan {
    my ($test) = @_;
    
    for my $patternList (@kPatterns) {
        for my $pattern (@$patternList) {
            return $pattern if $test =~ $pattern;
        }
    }
    
    return ;
}