optimizing Perl K2P function
more k2p optimizations
perl k2p optimizations finished