$ perl -E '
    use Devel::Size "total_size";
    use Devel::Size::Report "report_size";
    use Judy::HS qw{Get Set};

    my $judy;
    Set($judy, Key => 42);
    say q{$judy: }, $judy;
    say q{total_size($judy): }, total_size($judy);
    say q{report_size($judy): }, report_size($judy);

    my ($PValue, $Value) = Get($judy, "Key");
    say "\$PValue[$PValue]";
    say "\$Value[$Value]";
'
$judy: 42949789440
total_size($judy): 24
report_size($judy): Size report v0.13 for '42949789440':
  Scalar 24 bytes
Total: 24 bytes in 1 elements

$PValue[42949813632]
$Value[42]