Select Code to Download

use strict;
use warnings;
...
10020,switchD,off
10020,switchF,on
10021,switchF,on

...
my %switches = map { $_ => 1} @switches;
...
   ...
}
...