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;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.