use strict;
use warnings;
use Math::BigFloat;

my $x = 4.123450987654321012345;
my $y = 4.123450987654321012344;
print "Erst einmal falsch:\n";
print "$x - $y = ", $x - $y, "\n";

# korrektes Ergebnis mit Hilfe des Moduls BigFloat
$x = new Math::BigFloat("4.123450987654321012345");
$y = new Math::BigFloat("4.123450987654321012344");
print "Nun richtig mit BigFloat:\n";
print "$x - $y = ", $x - $y, "\n";