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;
    }
}