my %pchr = do { my $i; map { $_ => $i++ } qw( K Q R B N P ) };