Looking at things changes things...

autovivi.pl

use Modern::Perl '2012';
use Test::More;
use Data::Dumper;

my %hash = (
  1 => undef
);

ok(! $hash{1}, 'Ok, undef unter Key 1 ist false');
is( ref($hash{1}), '', 'Ok, dort ist auch keine Referenz');
ok(! @{$hash{1}}[0], 'Ok, auch wenn ich so tue als waere ein Array dort');
is( ref($hash{1}), 'ARRAY', 'Ok, jetzt ist dort aber plötzlich ein Array entstanden!');

print Dumper(\%hash);