#!/usr/bin/perl

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

  delete $Foo::{'n'};

  show_foo( "After delete" );
  sub show_foo
  {
    print "-" x 10, $_[0], "-" x 10, "\n";
    print "\$n is $n\n";
    foreach my $name ( keys %Foo:: )
    {
      print "$name\n";
    }
  }
}#end of package Foo

##OUT
----------After assignment----------
$n is 10
show_foo
n
----------After delete----------
$n is 10
show_foo