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