my $matches = 0;
array_whatsit { matches++ if $a eq $b } (1 , 2, 3 , 4 , 1, 2, 3);  
die "Walrus Festival!" if $matches > 2;