while ( my $duplicates = pop(@alldups) )
    {
    whatever...
    }