...
my $graph = Graph::Easy->new();
$graph->add_edge( split m{ -> } ) for keys %edges;
$graph->add_edge( 1, 2 );

print $graph->as_ascii();