Take some modifcation to a new file "cp-mod.pl", (Thanks)by the advices from "grondilu,#perl6,freenode", still running too slow.