So, I'll propose an array of arrays solution instead.

my @tmpl_array = (
    urlloopA => [
        'Home'     => '/',
        'Icons'    => '/icons/',
        'Sitedocs' => '/doc/',
    ],
    urlloopB => [
        'Cisco'      => 'http://www.cisco.com/',
        'CPAN'       => 'http://search.cpan.org/',
        'Google'     => 'http://www.google.com/',
        'Perl Monks' => 'http://www.perlmonks.org/',
    ],
);

for (my $i = 0; $i < $#tmpl_array; $i+=2) {
    my($loop, $aref) = @tmpl_array[$i, $i+1];

    my @vars;

    for (my $j = 0; $j < $#{$aref}; $j+=2) {
        my($name, $url) = @{$aref}[$j, $j+1];
        push @vars, { name => $name, url => $url };
    }

    $template->param($loop, [ @vars ]);
}
[download]

Update: This code would be used with the same updated template as the hash of hashes suggestion in my earlier reply.

Personally I avoid using the C-style for, since I find it harder to see exactly what what it is doing at a glance. I also avoid loop indexes as they aren't very perlish. This is another way to do it, but it destroys the arrays, which may or may not be acceptable.

while ( @tmpl_array ) {
  my ($loop, $aref) = splice @tmpl_array,0,2;

  my @vars;

  while (@$aref) {
    my ($name, $url) = splice @$aref,0,2;
    push @vars, { name => $name, url => $url };
  }
  $tmpl->param($loop, \@vars;
}
[download]