# find duplicate entries in array @list
my @sorted = sort (@list);
my @duplicated;

while (@sorted)
{
    my $this = shift (@sorted);

    if ($this eq $sorted[0])
    {
        push (@duplicated, $this);

        while (@sorted and $this eq $sorted[0])
        {
            shift (@sorted);
        }
    }
}