# ein paar Listen von Daten, die in die Schleife gepackt werden sollen:
my @words = qw(I Am Cool);
my @numbers = qw(1 2 3);

my @loop_data = ();  # Initialisiere eine Liste, die die Schleifendaten aufnehmen soll

while (@words and @numbers) {
  my %row_data;  # verwende einen neuen Hash fuer die Daten der Zeile
  # Fuelle die Zeile
  $row_data{WORD} = shift @words;
  $row_data{NUMBER} = shift @numbers;

  # Der kritische Punkt: werfe eine Referenz auf diese Zeile
  # auf die Schleife
  push(@loop_data, \%row_data);
}

# weise die Schleifendaten dem Schleifenparameter als Referenz zu
$template->param(THIS_LOOP => \@loop_data);