use Data::Dumper;
print(Dumper(\%griph));