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