Select Code to Download

while(<INFILE>){
   chomp();
...
while(($k, $v) = each %GRAMMAR) {
   print "$k\n";
}

A
B
C

F
T
E