open NEW_TEMPLATE, "> $indx" or die "Cannot open ($indx) for writing: $!";

# open the HTML template
my $template = HTML::Template->new(filename => $indx_tem);

# fill in some parameters in the template
$template->param(Location => $Location);
$template->param(Number => $Number);
$template->param(word => $word);

# print the template to file
$template->output(print_to => *NEW_TEMPLATE);

##</code><code>##

open DB, "< $db" or die "Cannot open ($db) for reading: $!";
while (my $line = <DB>) {
    chomp $line;
    my ($word,$time,$Number,$Location) = split "\t",$line;
    if ($Number) {
        open FILE1, "> $indx"  or die "Can't open $indx: $!";
        # open the HTML template
        my $template = HTML::Template->new(filename => $indx_tem);

        # fill in some parameters in the template
        $template->param(Location => $Location);
        $template->param(Number => $Number);
        $template->param(word => $word);

        # print the template to file
        $template->output(print_to => *FILE1);
        
        close FILE1;
        print "finish$Number<br>";       
    }
    else {
        # do you need debugging if you don't use $Number?
    }
}
close DB;