[Perl]Return value of double type isn't correct