use strict;

my @gameboard = (
    [ 1, 2, 3, 4, 5 ],
    [ 2, 3, 4, 5, 1 ],
    [ 3, 4, 5, 1, 2 ],
    [ 4, 5, 1, 2, 3 ],
    [ 5, 1, 2, 3, 4 ],
);

for my $i (1 .. 4) {
    for my $j ($i + 1 .. 5) {
        if ($gameboard[$i][0] == $gameboard[$j][0]) {
            print "Matched $i,0 and $j,0\n";
        }
    }
}