Select Code to Download

my %count;
for my $record (@records) {
...
    $record->duplicate(1);   # or however you set the duplicate flag
  }
}