Select Code to Download

for my $y (0..$#list) {
   for my $x ($y+1..$#list) {
      ...
   }
}

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

my %counts;
my $dups;
...
      }
   }
}