foreach $daten (sort keys %dl){
    next if @{$dl{$daten}} == 1;
    ...
}