Single means single precision. GetData is different for differnet objects, and I do not know what kind of object you have, but I think this might work:
my $object = Win32::OLE->new('ClassID'); # this works correctly.
my $number = 1;
my @prices;
my @others;
my $returnValue = $object->GetData($number,\@prices,\@others);