Select Code to Download

# code to mimic uniq(1)

# mode: divine
my @result = do {
  my %counter;
  grep ++$counter{$_} == 2, @input;
};

# mode: tired
for (@input) {
...
for keys( %multiples ) { 
  print "$_\n" if (--$multiples{$_});
}