$ perl -E 'use Data::Dumper; my %x; $x{a}&&=1; say Dumper(\%x);'

$VAR1 = {
          'a' => undef
        };