http://qs321.pair.com?node_id=205297


in reply to Re: Get All Duplicated Elements in an Array (Once, without shifting)
in thread Get All Duplicated Elements in an Array (Once, without shifting)

That is, of course, print if $keycount{$_} > 1;

Makeshifts last the longest.