perltidying up