use bignum;
$big_number = xxxxxx; #declared a 100 digits integer.
$another_big_number=xxxxxx;# 100 digits.
print operation($another_big_number);
sub operation {
    my $product = eval $_[0];
    return  abs $big_number - $product;
}