%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);

##</code><code>##

use Data::Dumper;

my @array = 1 ..5;
my %hash = (a => @array, b => 'foo');

print Dumper \%hash;

##</code><code>##

print "$_\n" for @{ $griph{c} };