@contentsOfDirectory = grep { $seen{$_} } @contentsOfDirectory;