sub filter_names {
    my ($nref,$fref,$dref) = @_;
    for (@$nref) {
      if (-d) {
        push @$dref, $_;
      } else {
        push @$fref, $_;
      }
    }
  }