Select Code to Download

@b_griph = ('foo', 'bar');

...
g =
p =
w =

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

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