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