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

##</code><code>##

foreach $tmp_sa (@foo)  {

   foreach $t (@bar)..... {

      foreach ( keys %{$data{$tmp_sa}{$t}} ) {
         print "$data{$tmp_sa}{$t}{$_}{'URL'}\n";
      } 

   }