more perl endwise