Help for this page
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; }