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

%griph=('c' => \@c_griph,
        'b' => \@b_griph,
        'f' => \@f_griph,
        'o' => \@o_griph,
        'r' => \@r_griph,
        'm' => \@m_griph,
        'y' => \@y_griph,
        'g' => \@g_griph,
        'p' => \@p_griph,
        'w' => \@w_griph);

print "c = ",@{$griph{'c'}},"\n";
print "b = ",@{$griph{'b'}},"\n";
print "f = ",@{$griph{'f'}},"\n";
print "o = ",@{$griph{'o'}},"\n";
print "r = ",@{$griph{'r'}},"\n";
print "m = ",@{$griph{'m'}},"\n";
print "y = ",@{$griph{'y'}},"\n";
print "g = ",@{$griph{'g'}},"\n";
print "p = ",@{$griph{'p'}},"\n";
print "w = ",@{$griph{'w'}},"\n";

__END__
output
======
c =
b = foobar
f =
o =
r =
m =
y =
g =
p =
w =

##</code><code>##

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

##</code><code>##

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