push @stack, [ COMMENT => $1 ];
...
$stack[-1][0] eq 'COMMENT' and pop @stack for 1..3;