foreach my $parent (keys %parents)
  {
    print FILE_OUT $parents{$parent} . "\n";
  }