Select Code to Download

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

foreach my $key (keys %news_sites) {
   *{$key} = sub {
...
       warn $key; # this will warn the value used when defining this s
+ub.
   }
}