my $dupes = $dupeset->files;
shift @$dupes; # eine datei behalten
for my $dupe (@$dupes) {
    move($dupe, 'C:\doppelt\\');
}