my %hash
tie my %tied, 'Tie::IxHash';

$hash{foo} = 1; 
$tied{foo} = 1; 

print "hash is true\n" if %hash; 
print "tied is true\n" if %tied;    # Won't print.