Select Code to Download

tie %$hash, "MultiHash";
$hash->{ x }{ y }{ z } = 10;

sub STORE {
  my ($tied_hash, $value, @keys) = @_;
...
  if( $x == 'foo' ) { ... }
  ...
}