Select Code to Download

use List::Util qw(max min);
...
    }
}

open (OUT, ">output.txt");
open (IN, "input1.txt");->original file1 with all data 
...
 

print "DONE";