foreach my $file (sort(readdir(PARSEDIR))) {

.....
becomes:
my @list = sort(readdir(PARSEDIR));
closedir(PARSEDIR);
foreach (@list)
{
.....