::= ::= ::= #### ::= ::= ::= #### while($line=<>) { chomp $line; ($head, $prod) = split /\s*::=\s*/, $line; $head=~ s/^(\s+)//; $head=~ s/\s+$//; $prod=~ s/^(\s+)//; $prod=~ s/\s+$//; if($bool==0) { $start=$head; $bool=1; } push(@{$hasharr{$head}}, $prod); }