use Win32::OLE::Variant;
my $number = 1;
my $var_number = Variant(VT_R4, $number);
$object->GetData($var_number,etc etc)