#! perl
use strict;
use warnings;

BEGIN      { print "BEGIN 1\n"; }
sub each   { warn  'main::each() was called' }
BEGIN      { print "BEGIN 2\n"; }
sub delete { warn  'main::delete() was called' }
BEGIN      { print "BEGIN 3\n"; }

my %person = (name => 'Ken Takakura');

while (my ($key, $val) = each %person)
{
    print "$key: $val\n";
}
    
delete $person{name};

BEGIN      { print "BEGIN 4\n"; }