while(<>){
        chomp;
        my @s = split /\t/,$_;
        my $r_name = $s[0];
        my $seq = $s[9];
        push @{$read2seq{$r_name}}, substr($seq,0,12);
}