my $ref = [
	[2, [qw(g a t a c a)]],
	[3, [qw(a t a c a g)]],
	[1, [qw(t a c a g a)]],
];