Help for this page
#!/usr/bin/perl -- ... print "g = ",$griph{'g'},"\n"; print "p = ",$griph{'p'},"\n"; print "w = ",$griph{'w'},"\n";
c = b b = ... g = p = w w =