while (<DATA>) {
    chomp;
    my ($head, $seq) = split / /;

##</code><code>##

while ( <DATA> ) {
    my ($head, $seq ) = split;

##</code><code>##

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

##</code><code>##

my file_end = '.fasta';
...
                open my $fh, '>>', "$ko$file_end" or die "Cannot open '$ko$file_end' because: $!";