sub getlmersfromseq {
    my  ($seqsarr,$l)= @_;
    return uniq map {substrings $_, $l} @{$seqsarr};
}