use v5.14;

package MyHash {
	use Data::Dumper;
	use Tie::Hash ();
	use base "Tie::StdHash";
	sub TIEHASH {
		my $class = shift;
		print Dumper @_;
		$class->SUPER::TIEHASH(@_);
	}
}

my %hash;
tie %hash, MyHash => \%hash;