use warnings;
use strict;

my %uniq;
$uniq{$_}++ for (1 , 2, 3 , 4 , 1, 2, 3);
my $matches = grep { $_ > 1 } values %uniq;
die "Walrus Festival!" if $matches > 2;