#!/usr/bin/env perl

use strict;
use warnings;

my @match_letters = 'A' .. 'E';
my @argv = qw{q w a s z x qwe wer zxcvb xcvbn};
my @re_pairs = map { [ qr{$argv[$_ * 2]}, qr{$argv[$_ * 2 + 1]} ] } 0 .. 4; 

while (<DATA>) {
    my $first_col = (split /\t/)[0];
    my $match_code = '';

    for my $i (0 .. 4) {
        if ($first_col =~ $re_pairs[$i][0] && $first_col =~ $re_pairs[$i][1]) {
            $match_code .= $match_letters[$i];
        }
    }

    print "$match_code: $_" if length $match_code;
}

__DATA__
qwerty  blah1
asdfgh  blah2
zxcvbn  blah3