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;
    }
}

##</code><code>##

my @seq_data;
open(SEQ,'<',$sequence_fname)||die "Cannot open sequence file\n";
while (<SEQ>) {
    push @seq_data, [split /\t/];
}
close SEQ;

if(!($permute)){
    for (@seq_data) {
        my @line = @$_;
        ...
    }
    ...
{
else{
    open(OUT,">>$out")||die "Cannot open $out\n";

    for (...) {
        ...
        for (@seq_data) {
            my @line = @$_;
            ...
        }

        foreach my $key(keys %ktc){
            ...
            print OUT ...
            ...
        }
    }

    close OUT;
}