perl json pretty print helper