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