update

Thanks, I've tried to redefine these variables, but my code didn't look like I want to.

(setq-default cperl-indent-parens-as-block t) and (setq-default cperl-close-paren-offset -2) help to reindent parentheses, but why have we got 4 spaces inside the qw() block then cperl-indent-level was set to 2?

Putting the cursor at the end of the added lines and entering control-X, control-E will execute perltidy and activate the ediff-files function in Emacs. Then I can select which part of my script I want to be changed.