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