Select Code to Download

    for my $k (sort keys %GRAMMAR) {

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

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

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