my @in = qw/
    test
    foo
    test
    bar
    baz
    foo
    test
/;

my %multiples;
for (@in) {
  $multiples{$_}++;
}
for keys( %multiples ) { 
  print "$_\n" if (--$multiples{$_});
}
[download]