my %guid=(218827=>5,109940=>2);

BEGIN
{
	%handle=
	(
		cmd => sub 
		{
			my $ref = sub{$guid{218827}++;warn "sub: $guid{218827}";};
			$ref->();
		},
	);
}


$handle{cmd}->();