in reply to Working with COM objects

You might try:

$tool->{Data} = $data;

[download]

In Section Seekers of Perl Wisdom