#!/usr/bin/perl
     
use warnings;
         
            
my %guid=(218827=>5,109940=>2);
          
BEGIN 
{
    %handle=
    (
        cmd => sub
        {
            my $ref = sub{$guid{218827}++;warn "sub: $guid{218827}";};
            $ref->();
        },
    );
    while (my ($key, $value) = each %guid) {
        print defined $key ? $key : "UNDEF";
        print ":";
        print defined $value ? $value : "UNDEF";
        print "\n";
    }
}        
            

$handle{cmd}->();
__END__
sub: 6 at buu line 14.