do {
                next LINE;
                print RESULTS "$currentfile";
            } until eof();