OUTER:
while (1)
{
    while (($k, $v) = each %GRAMMAR)
    {
        last OUTER if Find_First($k, $v);
    }
}