$n = 123;
  delete $::{n};
  eval '$n=456';
  print $n;
  eval 'print $n';

##</code><code>##

use feature 'say';

package Foo {
    our $n = 10;
    show_foo("After assignment");

    delete $Foo::{'n'};

    show_foo("After delete");

    sub show_foo {
        say shift;

        say '$n        => ', $n;
        say '$Foo::n   => ', $Foo::n;
        say '$Foo::{n} => ', $Foo::{n};

        say;
    }
}

##</code><code>##

$n        => 10
$Foo::n   => 10
$Foo::{n} => *Foo::n

After delete
$n        => 10
$Foo::n   => 10
$Foo::{n} =>