perl -Mv5.14  -MJudy::L=Get,Set -e'
   my $i = 1<<63;
   my $j = -$i;

   my $judy;

   Set( $judy, $i, 4 );
   Set( $judy, $j, 5 );

   say( ( Get( $judy, $i ) )[1] );
   say( ( Get( $judy, $j ) )[1] );
'