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