sub subcalc{
    my ($op1,$op,$op2) = @_;
    if($op eq '*'){
        return mal($op1,$op2);
    }
    elsif($op eq '/'){
        return div($op1,$op2);
    }
    elsif($op eq '+'){
        return plus($op1,$op2);
    }
    elsif($op eq '-'){
        return minus($op1,$op2);
    }
    else{
        return 0;
    }
}