use Tie::Hash::Vivify;
use Data::Dumper;

my $hash = Tie::Hash::Vivify->new(sub {
  die("No auto-vivifying! Bad programmer! No bikkit!\n".Dumper(\@_))
});