while( <IN> ) {
		next if /^#|^$/;

		chomp;
		my @record = split ',', $_, $numFields;
		push @{ $groups{ $record[ $fields[0] ] } }, [
			$record[ $fields[1] ],
			$record[ $fields[2] ],
			$record[ $fields[3] ],
			$record[ $fields[4] ],
		];
	}
	close IN;