my $data = decode_json($original);
print Dumper $original;
print Dumper $desired;
print Dumper $data;
for my $key ( keys % {$data}  )