my $object = Win32::OLE->new('ClassID'); # this works correctly.
my $number = 1;
my $prices = [];
my $others = [];
my $returnValue = $object->GetData($number,$prices,$others);