Quelqu'un

my $numberofnotify=scalar(@notify);
        for (my $j=0;$j<scalar(@notify);$j++){
     my ($numaccts,$accts,$total)=getboracctrecord('',\%bor,$notify[$j]);
        for (my $i=0;$i<$numaccts;$i++){
               if ($accts->[$i]{'amountoutstanding'} > 0){
#
                        $accts->[$i]{'amount'}+=0.00;
#
                        $accts->[$i]{'amountoutstanding'}+=0.00;
#
                        my %line;
#
                        $line{i}=$i;
#
                        $line{itemnumber} = $accts->[$i]{'itemnumber'};
#
                        $line{accounttype} = $accts->[$i]{'accounttype'};
#
                        $line{amount} = sprintf("%.2f",$accts->[$i]{'amount'});
#
                        $line{amountoutstanding} = sprintf("%.2f",$accts->[$i]{'amountoutstanding'});
#
                        $line{bornum} = $bornum;
#
                        $line{accountno} = $accts->[$i]{'accountno'};
#
                        $line{description} = $accts->[$i]{'description'};
#
                        $line{title} = $accts->[$i]{'title'};
#
                        $line{notify_id} = $accts->[$i]{'notify_id'};
#
                        $line{notify_level} = $accts->[$i]{'notify_level'};
#
                                        }
#
        }
#
       
#
        push @allfile, {'loop_pay'=>\@loop_pay,'notify'=>$notify[$j]};
#
  }
#
 
#
        $template->param(                            
#
                                                        allfile => \@allfile,
#
                                                        firstname => $data->{'firstname'},
#
                                                        surname => $data->{'surname'},
#
                                                        bornum => $bornum,
#
                                                        loop_pay => \@loop_pay,
#
                                                        total => sprintf("%.2f",$total));
#
        print "Content-Type: text/html\n\n", $template->output;