my @loop_data = ();
my @keys = ();
my @values = ();

# incidentally, the "my %hash" on the next line should be just "%hash"

while ((my $key, my $value) = each my %hash) {
  push(@keys, $key);
  push(@values, $value);
}

while (@keys and @values) {
  my %row_data;
  
  $row_data{KEY} = shift @keys;
  $row_data{VALUE} = shift @values;

  push(@loop_data, \%row_data);
}

##</code><code>##

my @loop_data = map { { KEY => $_, VALUE => $hash{$_} } } keys %hash;

##</code><code>##

<table width=400 border=1 cellspacing=0 cellpadding=0>
  <TMPL_UNLESS SHOW_ALL_LOOP>
  <tr>
    <td>
      Nothing to see here folks, move along!
    </td>
  </tr>
  </TMPL_UNLESS>
  <TMPL_LOOP SHOW_ALL_LOOP>
  <tr>
    <td valign=top bgcolor=#dddddd>
      <b>Key</b>:&nbsp;<TMPL_VAR NAME="KEY">
      <b>Value</b>:&nbsp;<TMPL_VAR NAME="VALUE">
    </td>
  </tr>
  </TMPL_LOOP>
</table><br>

##</code><code>##

    <td valign=top bgcolor=#dddddd>
      <b>Key</b>:&nbsp;<TMPL_VAR NAME="KEY">
    </td>
    <td>
      <b>Value</b>:&nbsp;<TMPL_VAR NAME="VALUE">
    </td>