#!/usr/bin/perl

use strict;
#use HTML::Template;
use CGI;
use Data::Dumper;

my $q = CGI->new;


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

my $data = {

    "26645222" => {
	            accounts => [
				   ["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", "-"],
                             ],
                    names_info     => [
                                        ["Ms. Ann","MAin Street","P. O. Box X",],
                                       ],

                    zips     => [
                                 ["box","MAin Street","P. O. Box 1X",],
                                ],

		 
               },
    "1100999" => {
                   accounts => [
				   ["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", "-"],
                                ],
                    names_info     => [
                                        ["Joe oe"," Cort Street","P. O. Box WW",],
                                       ],

                    zips     => [
                                 ["box 3"," 333 MAin Street","P. O. Box 1X",],
                                ],
               },

	       
    "11299875" => {
	accounts =>
                   [
		    ["1AXXX98840", "ASHLEY ASH", "03/11/2011", "-"]
		   ],
	
         names_info  => [
                         ["Ms. Ann","MAin Street","P. O. Box X",],
                        ],

         zips     => [
                      ["house", "Cet Street","P. O. Box 3ty",],
                     ],
		},

};


my $final_data;
 for my $id ( keys %{$data} ) {
   
   my $data = $data->{ $id }->{accounts};
   push @{$final_data->{$id}}, $data  if $data;

 }

my @data;

 for my $id (keys %$final_data){
    my $ar = $final_data->{$id}[0];
    my @lines=();
    for my $ar (@$ar){
      push @lines,{
        ACCOUNT=>$ar->[0],
        NAME   =>$ar->[1],
        DATE   =>$ar->[2],
      }
    }
    push @data, {
      ID   => $id,
      LINE => \@lines
    };
  }
print Dumper \@data;