Select Code to Download

foreach(  keys %news_sites  ) {
    my $name= $_;
...
        ...
    };
}

foreach(  keys %news_sites  ) {
    my $site= $new_sites{$_};
...
        ...
    };
}