2 more perl fixes