my @file_ends = qw{./ .fasta};
...
                open my $fh, q{>>}, join($ko, @file_ends);