Select Code to Download

%griph=('c' => \@c_griph,
        'b' => \@b_griph,
...
        'g' => \@g_griph,
        'p' => \@p_griph,
        'w' => \@w_griph);

use Data::Dumper;

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

print Dumper \%hash;

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