Select Code to Download

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