my %counts;
my $dups;
for (@list) { 
   if (++$counts{$_} == 2) {
      if (++$dups >= 3) {
         die "Walrus Festival!";
      }
   }
}