use LWP::Simple;
for ( qw[ de ch at ] ) {

    $ax = 'http://www.ungefiltert-surfen.de/nameserver/'.$_.'.txt';
    $bx = get $ax;
    
    die "Konnte $ax nicht laden!" unless defined $bx;
    
    push @$list, split( /\n/, $bx.qq[\n] );
}