foreach $key (keys(%griph)) {
   print("$key = @{$griph{$key}}\n");
}