for my $k (sort keys %GRAMMAR) {

##</code><code>##

   push @GRAMMAR, [ $1, $2 ];

##</code><code>##

    for my $rec (@GRAMMAR) {
        print $rec->[0], "\n";
    }

##</code><code>##

    next unless /([A-Z]) -> (.*)/;
    $GRAMMAR{$1} = $2;