foreach my $segment (@collection) {
	foreach $i (0..length($segment)) {
		if (substr($segment,$i,1) eq "A") {
			$score[$i][1] = 1;
			$score[$i][2] = 0;
			$score[$i][3] = 0;
			$score[$i][4] = 0;
		} elsif (substr($segment,$i,1) eq "B") {
			$score[$i][1] = 0;
			$score[$i][2] = 1;
			$score[$i][3] = 0;
			$score[$i][4] = 0;
		} elsif (substr($segment,$i,1) eq "C") {
			$score[$i][1] = 0;
			$score[$i][2] = 0;
			$score[$i][3] = 1;
			$score[$i][4] = 0;
		} elsif (substr($segment,$i,1) eq "D") {
			$score[$i][1] = 0;
			$score[$i][2] = 0;
			$score[$i][3] = 0;
			$score[$i][4] = 1;
		}
	}
}