if(!($permute)){
    open(SEQ,'<',$sequence_fname)||die "Cannot open sequence file\n";
    while (my @line=split (/\t/,<SEQ>)){
        ...
    }   
    ...
{   
else{
    for (...) {
        ...
        open(SEQ,'<',$sequence_fname)||die "Cannot open sequence file\n";#open the sequence file
        while (my @line=split (/\t/,<SEQ>)){#for each sequence record the nmer information
            ...
        }
        close SEQ;
        open(OUT,">>$out")||die "Cannot open $out\n";
        foreach my $key(keys %ktc){
            ...
            print OUT ...
            ...
        }
        close OUT;
    }
}