my $richtige;
{
    local $/;           # perldoc perlvar
    open(my $in2, '<', $boltons) or die $!;
    $richtige = <$in2>; # gesamte Datei in Skalar speichern
    close $in2;
}

open(my $out, '>', "$resdir/${dumpfile}_packs_notlist.txt") or die $!;

for my $name (sort keys %dump_packs) {
    if ($richtige !~ /$name/) {
        print $out join(',', $name, @{$dump_packs{$name}}) . "\n";
    }
}
close $out;