my $root= <>;

##</code><code>##

my %graph= %graph;

##</code><code>##

$dist{$n2} = $dist{$n} + $graph{$n1}{$n2};