use Tie::Hash::Vivify;
use Carp qw(confess);
use Data::Dumper;
...
my $hashref = Tie::Hash::Vivify->new(sub {
  confess("No auto-vivifying!\n".Dumper(\@_))
});