use Data::Dump;
use JSON::PP;
my $data = decode_json(q{ { "foo":true, "bar":false } });
dd $data;
my ($foo,$bar) = ($data->{foo},$data->{bar});
print "foo=$foo, bar=$bar\n";
__END__
{
  bar => bless(do{\(my $o = 0)}, "JSON::PP::Boolean"),
  foo => bless(do{\(my $o = 1)}, "JSON::PP::Boolean"),
}
foo=1, bar=0