for my $customer (keys %$bi)
{
	for my $domain (keys %{$bi->{$customer}})
	{
		my %customer_domain_data;
		$customer_domain_data{CUSTOMER}=$customer;
		$customer_domain_data{DOMAIN}=$domain;
		print "$customer\n\t$domain\n";
		
		for my $host (keys %{$bi->{$customer}->{$domain}})
		{
			my $schedule = $bi->{$customer}->{$domain}->{$host}->{BACKUPCFG}->{EXPORT_SCHEDULE_1}->{VALUE};
			if (defined $schedule)
			{
				my @schedule_rows_loop =();
				my @schedule=split(/,/, $schedule);
				for my $dif_schedule(@schedule)
				{
					my %schedule_rows_data;
					print "\t\t$dif_schedule\n";
					$schedule_rows_data{SCHEDULE}=$dif_schedule;
					print "\t\t	$schedule_rows_data{SCHEDULE}\n";
					push (@schedule_rows_loop, \%schedule_rows_data);
					print Dumper(@schedule_rows_loop);
					$template->param(SCHEDULE_ROWS => \@schedule_rows_loop);

				}

			}	
			push (@customer_domain_loop, \%customer_domain_data);
			$template->param(CUSTOMER_DOMAIN => \@customer_domain_loop);
		}
	}
}

##</code><code>##

	<TMPL_LOOP NAME=CUSTOMER_DOMAIN>
			<tr>
				<td><TMPL_VAR NAME=CUSTOMER></td>
				<td><TMPL_VAR NAME=DOMAIN></td>
				<td>
					<table style="Width:100%">
						<TMPL_LOOP NAME=SCHEDULE_ROWS>
							<tr>					
								<td><TMPL_VAR NAME=SCHEDULE></td>
							</tr>
						</TMPL_LOOP>	
					</table>
				</td>
			</tr>
		</TMPL_LOOP>