my $op = pop @stack;
    my ($operand, $prec) = ($$op[0], $$op[1]);