use Math::BigInt;
my $x = Math::BigInt->new('123456789012345678901234567890');
my $y = '123456789012345678901234567890';
$x += 1;
$y += 1;
print "x=$x\n";
print "y=$y\n";