sub getlmersfromseq {
    my  ($seqsarr,$l)= @_;
    my  @lmers;

    @lmers = map {substrings $_, $l} @{$seqsarr};
    my @uniq_lmers = uniq @lmers;
    return @uniq_lmers;
}