endwise perl