foreach my $k (keys %h){
    }

##</code><code>##

else {
    if( $M2 eq 'pairs' ) {
        for my $k ( keys %hash ) {
            my $v = $hash{ $k };
            ++$count;
        }
    }

##</code><code>##

if( $M1 eq 'each' ) {
    if( $M2 eq 'pairs' ) {
        while( my( $k, $v ) = each %hash ) {
            ++$count;
        }
    }

##</code><code>##

    else {
        while( my $k = each %hash ) {
            ++$count;
        }
    }

##</code><code>##

    else {
        for my $k ( keys %hash ) {
            ++$count;
        }
    }