A little bit perltidy