a bit of perltidy