#!/usr/bin/perl

use strict;
use HTML::Template;
use CGI;

my $q = CGI->new;


my $template = HTML::Template->new(filename => 'temp.tmpl', die_on_bad_params => 1);

my $data = {

    "26645222" => [
                 [
                   [2AS166, "RICHARD GYN", "03/20/2011", "-"],
                   [1X1327, "THELMA SJR", "02/02/2011", "-"],
                   [B998730, "NANCY RAI", "02/07/2011", "-"],
                   [2SSS8, "MARK JR", "02/10/2011", "-"],
                   [7NN5725, "SAMANTHA", "02/13/2011", "-"],
                   [22SSDX87B, "KIM BERLY", "02/25/2011", "-"],
                   [8BBG327, "THELMA SIR", "02/02/2011", "-"],
                   [9JNM30, "NANCY ECO", "02/07/2011", "-"],
                   [8JJHN34, "MARK JUNIOR", "02/10/2011", "-"],
                   [3XXC998, "SAMANTHA THREE", "02/13/2011", "-"],
                   [7GGG666, "KENNEY BRO", "02/25/2011", "-"],
                 ],
               ],
    "1100999" => [
                 [
                   [2SS919, "SARA LEE", "03/12/2011", "-"],
                   [14X545, "MICHELLE DUO", "03/15/2011", "-"],
                   [1XX54c31, "MARIA ALCI", "03/30/2011", "-"],
                   [8NN443A7, "ROBERT FOGO", "02/01/2011", "-"],
                   [8BBK903, "MARVIN JACK", "02/22/2011", "-"],
                   [0AAS7060, "DEBORAH BLOCK", "02/30/2011", "-"],
                   [0KO977, "MATARAZZO ROBERT", "02/01/2011", "-"],
                   [1ZZXS0, "MARVIN MAY", "02/22/2011", "-"],
                   [&&8888, "DEBORAH ONE", "02/30/2011", "-"],
                 ],
               ],
    "11299875" => [
                   [
		    [1AXXX98840, "ASHLEY ASH", "03/11/2011", "-"]
		   ]
		  ],
    ...
    
  },

};

$template->param(

                  DATA => $data,           
                  );


	      
# Template output
print $q->header, $template->output;

__END__

temp.tmpl

<table>
 <TMPL_LOOP NAME="DATA">
 <tr>
  <td>ID: <TMPL_VAR NAME="ID"></td>
 </tr>
 <tr>
  <td>Account</td>
  <td>Name</td>
  <td>Date</td>
 </tr>
 <tr>
  <td><TMPL_VAR NAME="ACCOUNT"></td>
  <td><TMPL_VAR NAME="NAME"></td>
  <td><TMPL_VAR NAME="DATE"></td>
 </tr>
 </TMPL_LOOP>
</table>