perl critic fixes