$ncat += 1;
$init_name = "init_$ncat";

open(FILE,">>$filename");

foreach $l(@header){
$l =~ s/#init_name/$init_name/gi;
print FILE $l;
}

##</code><code>##

$ncat += 1;
$init_name = "init_$ncat";

open(FILE,">>$filename");

foreach $l(@header){
print #$ncat\n";
$l =~ s/#init_name/$init_name/gi;
print FILE $l;
}