Another way is to use the database a bit more:

  my $data = $dbh->selectall_arrayref(q{
    SELECT 
      col1, col2, col3 
    FROM 
      your_table
    WHERE 
      col5 = col8
  }, { Slice => {} });

my $template = HTML::Template->new( filename => 'some.tmpl' );
$template -> param( events => $data );
[download]