my $template = HTML::Template->new( filename => 'atm_choose.tmpl', die_on_bad_params => 0 );
my @LINES;
while (<DATA>)
{
	chomp;
	push @LINES, $_;
}
my $split;

for (@LINES)
{	my @row = split ('&', $_);
	push @{$split}, $_;

}


$template->param(TRANSACTIONS => $split);



print header, $template->output;

__DATA__
10/02/2013 & closing balance & 0 & 1000
11/02/2013 & debit & 100 & 900
12/02/2013 & credit & 1000 & 1900