Fixed some perl critic things