#!/usr/bin/perl -wT use strict; use CGI; $CGI::DISABLE_UPLOADS = 1; use CGI::Carp qw/fatalsToBrowser/; use HTML::Template; use vars qw/ $q $template $html @loop_data @data /; $q = new CGI; $html = do { local $/; }; $template = HTML::Template->new(scalalref => \$html); @data = ( [1, 2, 3, 4, 5], ['one', 'two', 'three', 'four', 'five'], ['ein', 'zwei', 'drei', 'veir', 'funf'], ['hana', 'dool', 'set', 'net', 'dasut'], ['yi', 'er', 'san', 'si', 'wu'], ); ### DO SOMETHING HERE TO CREATE @loop_data ! $template->param(loop1 => \@loop_data); print $q->header; print $template->output; exit; __DATA__