use Test::More tests => 1;

my %empty_hash;
my $value = 1;

$value = $empty_hash{empty_value};

is( $value, 1, 'undef from hash should not overwrite defined value' );