use strict;
use warnings;

sub each   { warn 'main::each() was called' }
sub delete { warn 'main::delete() was called' }

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

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

delete $person{name};