#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

my $json = q/{"hello":["world","collegues"]}/;

print Dumper $_
    for map { +{
                module  => $_,
                input   => $json,
                output  => $_->new->decode($json),
        } }
        grep {
            m/^JSON::(?:PP|XS)$/
            && eval "require $_"
        } @ARGV;