Select Code to Download

$data{$sub_alias}{$topic_sub}{$id}{ 'URL' } = 'my_url';

foreach $tmp_sa (@foo)  {

...
      } 

   }