couple of lines re perl tidying.