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