use strict;
use warnings;
use Math::BigInt;

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

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