use strict;
use warnings;

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

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

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

&our( $person{name} );
delete $person{name};
chop $person{name};
dump( $person{name} );