use strict;
use warnings;

my $PCHR = "KQRBNP";
my $w1   = "QRKPNB";
my $w2 =
  join "",
  sort { index ($PCHR, $a) <=> index ($PCHR, $b) }
  split //, $w1;

print "$w1 -> $w2";