removed unused line, perltidied