for my $k (keys %$graph) {
    $g -> add_edge($k=>$_) for @{$graph->{$k}};
}