some perltidy