Select Code to Download

use strict;
use warnings;
...
   }
}
print join(" ", grep {!exists $b{$_}} (0..31)), "\n";

use strict;
use warnings;
...
      $series = 0;
   }
}