Select Code to Download

my @kw = sort qw( ze ez zl lz ze );
my @dw = sort qw( ze ez ze ez zd );
...
   ++$kw_i;
   ++$dw_i;
}

my $dw = ' ' . join(' ', qw( ze ez ze ez zd ));
my @kw = qw( ze ez zl lz ze );
...
   substr($dw_, $pos+1, 2, '');
   ++c;
}