Use of uninitialized value $switches[1] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[3] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[5] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[7] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[9] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[11] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[13] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[15] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)
Use of uninitialized value $switches[17] in join or string at morecurrent.pl line 69, <STDIN> line 11 (#1)

A1  B1  B12  S  S  S  S  S  S 
Use of uninitialized value $modelselect in string ne at morecurrent.pl line 19,
	<STDIN> line 11 (#1)