I have not done this, but the directions seem to indicate something like:

my %hash = (
    'Perl Monks' => 'www.perlmonks.org',
    'Gossip and Innuendo' => 'www.salon.com',
    'Free Software' => 'www.gnu.org'
);
# we need parallel lists for each of the variables
my @label_list; my @url_list;

foreach my $label ( keys %hash ) {
     push( @label_list, $label );
     push( @url_list, $hash{$label} );
}

my @loop_data = ();

while (@label_list) {
    my %row_data = {};
    $row_data{'LABEL'} = shift @label_list;
    $row_data{'URL'} = shift @url_list;
    push( @loop_data, \%row_data );
}
 
$template->param(THIS_LOOP => \@loop_data);
==========
then in the template:

<TMPL_LOOP NAME="THIS_LOOP">
    Hotlink: <A HREF="<TMPL_VAR NAME="URL">"><TMPL_VAR NAME="LABEL"></
+A><P>
</TMPL_LOOP>
[download]

But this is a guess. I'd do a Data::Dumper print Dumper( @loop_data ) to get a feel for what this has done. :)

Update: Put while loop around the shift bit, based on repson's input. I overlooked the loop around this section of the sample code in the POD for this module.