use Devel::Peek;
#...etc...
bless $x{foo}, 'Null';

print Dump( $y );
print Dump( $x{foo} );