my %gra;
$gra{"test"}{"A"}=44;
$gra{"test"}{"B"}=41;
$gra{"foo"}{"A"}=43;
for my $k (keys %gra) {
        print $k,"\n";
        for my $i (keys $gra{$k}) {
              my $v=$gra{$k}{i};
              print "$i: $v\n";
        }
}