use JSON::XS qw( );
my $data = JSON::XS->new->decode($json);