use strict;
use warnings;
use Tie::Hash;

our %nottied = ('a'..'d');
tie our %tied, "Tie::StdHash";
%tied = ('a'..'d');
$_ = 'x' for (values %tied);
$_ = 'x' for (values %nottied);

print "tied is now: ", %tied, "\n";
print "nottied is now: ", %nottied, "\n";

##</code><code>##

tied is now: cxax
nottied is now: cxax