my @a = qw/ 1 2 3 4 5 6 7 8 9 5 7 9 5 /;
my %seen;
my @dups = grep ++$seen{$_}==2, @a;
print "@dups\n";