Select Code to Download

if(exists($coordinates->{$group})) {
  if(exists($coordinates->{$group}->{$id})) {
...
    }
  }
}

my $result = do_stuff_in_hash_without_autovivifying(
  sub {
...
    return $sub->($hash);
  }
}

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