Thank you. It's work
#########
package Data;
use threads;
use threads::shared;
share(%data);
$data{'test'} = 'str1';
$data{'test1'} = 'str2';
1;
#########
#########
package Update;
....
use Data;
sub handler
{
...
# it's ok!
$Data::data{'test2'} = 'new_variable';
...
}
#########