push(@dir, $_) if (-d "./desktop/$_");

##</code><code>##

@dir = grep { -d "./desktop/$_" } readdir(TEXTFILES);