CPAN::Groonga

        # 'f',
            # 'p',
            # 'i',
            # 'o',
        ],
    },
);

use JSON::MaybeXS;
path( 'qhull.json' )->spew( JSON::MaybeXS->new( pretty => 1 )->encode( \@results ) );