Select Code to Download

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

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