Select Code to Download

use 5.010;
use List::MoreUtils qw( sort_by );
...
my $w1 = 'QRKPNB';
my $w2 = join '', sort_by { $pchr{$_} } split( //, $w1 );
say "$w1 -> $w2";

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