$ time perl N_among_M.pl
184756

real    0m0.560s
user    0m0.545s
sys     0m0.015s