comparing json and perl output, initial revision