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

##</code><code>##

while ($boxEnd >= $boxBegining++) {