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 ]);
}