while ($diff->Next()) {
    next if $diff->Same();
    push @db, grep{ substr($_,0,1) eq '/' }$diff->Items(2);  # hinzugekommen
    push @fs, grep{ substr($_,0,1) eq '/' }$diff->Items(1);  # weggefallen
}