for my $Skmerkey (keys %Skmer) {

##</code><code>##

        my $i = $Skmer{$Skmerkey};