my %name = (1, "A", 2, "B", 3, "C", 4, "D");
my %parent = (1, 0, 2, 1, 3, 2, 4, 3);