#remove all previous re-organized files
my $remove_reorganized = "re-organized.txt";
if (unlink($remove_reorganized) == 1) {
                        print "Existing \"re-organized.txt\" file was removed\n";
                          }
	 
#now make a file for the ouput
       my $outputfile = "re-organized.txt";
           if (! open(POS, ">>$outputfile") ) {
            print "Cannot open file \"$outputfile\" to write to!!\n\n";
                exit;
        }