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