%p2C = map {if (not exists $p2C{$_}) {$k=chr(ord('A')+(($a++)+$caesar)%26); $k => $_}} (split(//, $kp))