Thanks - that is very interesting. I did not expect that...

I find this illustration quite amusing:

use strict;

our $foo = "old value\n";
%:: = (%::);

our $var = "new value\n";
$::{foo} = *var;

print $foo;
eval q| print $foo |;
[download]

btw: Is there a nicer way to create a typeglob with a given value in the scalar-slot?