my %adj = (A => ['B'], B => ['A','C'], C => ['B','D'], D =>['C']);