Help for this page
<S> ::= <SS> <W> ::= <V> <V> ::= <SS>
<V> ::= <SS> <W> ::= <V> <S> ::= <SS>
while($line=<>) { chomp $line; ... push(@{$hasharr{$head}}, $prod); }