This likely means that your $x and $y are not Math::BigFloat objects. Maybe you want to convert them to that?

$x = Math::BigFloat->new( $x );
$y = Math::BigFloat->new( $y );
[download]

But most likely, you have already lost some precision you likely wanted to keep. You should convert your numbers to BigFloats at the earliest possibility.