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