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