while (my $genome= <FH>) {
    for (0..length($genome)-2) {
        my $dimer = substr($genome, $_, 2);
        $dimers[$idx]{$dimer}++ ;     #seq wise length of dimer
    }
    $idx++;
}