Select Code to Download

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