my $x='-3809482.4215422305'+0;
my $y='-3809482.4215422301'+0;

my $diff = abs( $x - $y );
print $x,"\n",$y,"\n",$diff,"\n";