say "DNS-SERVERLISTE AKTUALISIEREN...";

for ( qw[ de ch at ] ) {

    $ax = 'https://www.ungefiltert-surfen.de/nameserver/'.$_.'.txt';
    $bx = get $ax;

    die "Konnte $ax nicht laden!" unless defined $bx;

    push @$list, split( /\n/, $bx."\n" );
}