for my $k (sort keys %GRAMMAR) {