foreach (keys %Dir) {
     unless ($_ eq "." or $_ eq ".." or $_ eq "GONE" or $_ eq "") {
     push(@FileList,$_);
     }
 }