print Dumper $key;
        print Dumper $value;
        print Dumper $data;
    }
    else
    {
        print "  -> It's fine where it is, no action taken\n";
        print Dumper $key;
        print Dumper $data;
    }
}

print encode_json( $data ), $/;


use Test::More;
my $desired_data = decode_json( $desired );
is_deeply( $desired_data, $data, "Data structures match" );
done_testing(1);