Select Code to Download

     <TABLE BORDER="1">
     <TR><TD>Transaction</TD><TD>DATE</TD><TD>Type</TD><TD>Amount</TD>
+<TD>Ending Balance</TD></TR>
...
         <TD><TMPL_VAR NAME="Ending_Balance"></TD></TR>
         </TMPL_LOOP>
    </TABLE>

my $template = HTML::Template->new( filename => 'atm_choose.tmpl', die
+_on_bad_params => 0 );
...
10/02/2013 & closing balance & 0 & 1000
11/02/2013 & debit & 100 & 900
12/02/2013 & credit & 1000 & 1900

while (<DATA>)
{
...
$template->param(TRANSACTIONS => [{Date => $split[0][0], Type => $spli
+t[0][1], Amount => $split[0][2], Ending_Balance => $split[0][3]},
                  {Date => $split[1][0], Type => $split[1][1], Amount 
+=> $split[1][2], Ending_Balance => $split[1][3]},
                  {Date => $split[2][0], Type => $split[2][1], Amount 
+=> $split[2][2], Ending_Balance => $split[2][3]} ]);