my %hash = (1) ;
  
  tie(%hash , 'TiedHash') ;
  
  if ( %hash ) { print "BOOL: 1\n" ;}
  else { print "BOOL: 0\n" ;}

package TiedHash ;

sub TIEHASH { bless({}, __PACKAGE__ ) ;}