my @alldups = $dbh->selectall_arrayref( ... );

##</code><code>##

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