some more perl critic fixes