sub operation {
    my ($arg) = @_;
    my $product = eval "use bignum; $arg";
    return  abs $big_number - $product;
}

##</code><code>##

sub operation {
    my ($arg) = @_;
    my $product = eval "\$arg";
    return  abs $big_number - $product;
}