#!/usr/bin/perl

use strict;

my @a = qw( a b c b b c a a );
my @b = qw( a a b c c a b c );

for (my $i = 0; $i <= $#a; $i++ ) {
    &Results( $a[$i] . $b[$i] );
}

sub Results {
    my $input = shift;
    my $result = {
         'aa' => 'result_1',
         'ba' => 'result_2',
    };

    print "Input: $input --- Result: $result->{$input}\n";
}