if ($mode eq "Position") {
	push (@data, $string);
} elsif ($mode eq "Freq") {
	push (@data, $string) for (1..$F[2]);
}
	
	my %freq;
for my $i (1..@data) {
	$freq{$1}[$-[0]] += 1/@data while $data[$i-1] =~ /(.)/g;
}