my $v = 1/3;
my $v2 = unpack("F", pack("j", unpack("j", pack("F", $v))));
print ("v = $v\nv = $v2\n");

# v = 0.333333333333333
# v = 0.333333333333333