Sub GetData(Number As Long, Prices() As Single, OtherDataPoints() As Single)

##</code><code>##

my $object = Win32::OLE->new('ClassID'); # this works correctly.
my $number = 1;
my $prices;
my $others;
my $returnValue = $object->GetData($number,$prices,$others);
# always fails with Win32::OLE(0.1701) error 0x80020005: "Type mismatch" in argument 2