fixed perl critics