Select Code to Download

use strict;
use warnings;
...
        delete $sets[$set_nr] unless --$sets2[$set_nr];
    }
}