$VAR1 = { 'root' => { 'A' => { 'D' => { 'I' => '' }, 'C' => { 'H' => '', 'G' => { 'K' => '' } } }, 'B' => { 'F' => '', 'E' => { 'J' => '' } } } }; dist root <> A => 1 dist root <> C => 2 dist root <> G => 3 dist root <> K => 4 dist root <> H => 3 dist root <> D => 2 dist root <> I => 3 dist root <> B => 1 dist root <> E => 2 dist root <> J => 3 dist root <> F => 2 dist A <> C => 1 dist A <> G => 2 dist A <> K => 3 dist A <> H => 2 dist A <> D => 1 dist A <> I => 2 dist A <> B => 0 dist A <> E => 1 dist A <> J => 2 dist A <> F => 1 dist C <> G => 1 dist C <> K => 2 dist C <> H => 1 dist C <> D => 0 dist C <> I => 1 dist C <> B => 1 dist C <> E => 3 dist C <> J => 4 dist C <> F => 3 dist G <> K => 1 dist G <> H => 0 dist G <> D => 1 dist G <> I => 3 dist G <> B => 2 dist G <> E => 4 dist G <> J => 5 dist G <> F => 4 dist K <> H => 1 dist K <> D => 2 dist K <> I => 4 dist K <> B => 3 dist K <> E => 5 dist K <> J => 6 dist K <> F => 5 dist H <> D => 1 dist H <> I => 3 dist H <> B => 2 dist H <> E => 4 dist H <> J => 5 dist H <> F => 4 dist D <> I => 1 dist D <> B => 1 dist D <> E => 3 dist D <> J => 4 dist D <> F => 3 dist I <> B => 2 dist I <> E => 4 dist I <> J => 5 dist I <> F => 4 dist B <> E => 1 dist B <> J => 2 dist B <> F => 1 dist E <> J => 1 dist E <> F => 0 dist J <> F => 1