P:\test>perl
sub TIEHASH { return bless {}, 'main'; } 
sub STORE{ $_[0]->{$_[1]} = $_[2]; } 
sub FETCH{ $_[0]->{$_[1]} } 
sub CLEAR{ undef %{$_[0]} }
tie %h, 'main';
print %h = ( 1,1,1,1);
^Z
1111