A fancy way to initialize %foo = (key => 0) and %bar = (key => 0).

$$_{key} = 0 for qw(foo bar);
[download]

Again, symbolic references are dangerous. Try to avoid them.