use Sub::Name
foreach (keys %news_sites)
{
  *{$_} = subname "generator_for_$_" => sub {...}
}