my %hash;
tie( %hash, "Tie::Hash::Stack" );

print ( %hash ) ? "ok" : "not ok";