in reply to error at line 77
Assuming this is line 77:
$grouping-;
It looks like you want to subtract something. Perhaps you meant to auto-decrement:
$grouping--;
Please edit your node to fix the ending "code" tag: it should be "/code".
In Section
Seekers of Perl Wisdom