perltidy
perl critic stuff fixed