#!/usr/bin/perl -w

use strict;

my ($i, $j);
my @a1=(1,2,3,4,5);
my @a2=(2,1,3,5,4);
my @a3=(3,4,5,1,2);
my @a4=(4,2,3,5,1);
my @a5=(5,4,3,2,1);

for $i(1..4){
    for $j($i+1..5){
        if (eval{$a.$i}[0] == eval{$a.$j}[0]){
            print "Matched one!\n";
            last};
    };
};