my $x='-3809482.42154223';
my $y='-3809482.42154223';

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