my %freq;
for my $i ( 1 .. @data ) {
	$freq{ $1 }[ $-[0] ] += 1/@data while $data[ $i-1 ] =~ /(.)/g;
}