Select Code to Download

my %count;
++$count{$_} foreach @c;
...
my @pairs = grep { $count{$_} >= 2 } sort { $b <=> $a } @c;
my @kind3 = grep { $count{$_} >= 3 } @pairs;
my @kind4 = grep { $count{$_} >= 4 } @kind3;

my ($points, %count);
++$count{$_} for @c;
$points += $_ * ($_ - 1) for values %count;