#x & y are both -3809482.42154223
my $diff = abs( $x - $y );

##</code><code>##

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

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