Select Code to Download

    foreach my $k (keys %h){
    }

else {
    if( $M2 eq 'pairs' ) {
...
            ++$count;
        }
    }

if( $M1 eq 'each' ) {
    if( $M2 eq 'pairs' ) {
...
            ++$count;
        }
    }

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

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