# NAME_uc heißt, daß die event_id im Hash als EVENT_ID steht usw.
while($ref = $sth->fetchrow_hashref('NAME_uc')) {
  $template->param($_ => $ref->{$_}) for qw/EVENT_ID NAME/;    
  print $template->output;
};