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