No, that won't fly. You need

$seen{$_}++ for @list;
my @doubles = grep $seen{$_} == 2, @list;
[download]

Makeshifts last the longest.