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

##</code><code>##

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