>perl -MData::Dumper -we "my $v={''=>undef}; my $h; %$h=%$v; print Dumper $h"
--OUTPUT--
$VAR1 = {
          '' => undef
        };