my $k = 15;
my %repo = (
    "readA" => "AAACATGAAAAGAAATGATGAAACAGA",
    "readB" => "AAATCATGAAACAGAGCCTCATCTCCC ",
);
my @order = (  "readB_1","readA_2");