Select Code to Download

use strict;
use warnings;
...
printf "before: '%s'\n", $json->encode($data);
print "$data->{qux}\n";
printf "after: '%s'\n", $json->encode($data);

before: '{"qux":0.42,"foo":"bar"}'
0.42
after: '{"qux":"0.42","foo":"bar"}'