@griph_keys         = qw( c b f o r m y g p w);
@griph{@griph_keys} = ();
$griph{f}           = ['foo','faa'];
$griph{c}           = ['coo','caa'];
$griph{b}           = ['bee','baa'];
$griph{r}           = ['ree','raa'];

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