# key: parent 
# val: list of immediate children
sub load_hashes{
    my ($child, $par);
    while(<DATA>){
        chomp;
        ($child, $par) = split /"\t"/;
#push @{$immed_child{$par}}, $child;
        print "ch: $child, par: $par\n";
    }
}