$ time perl N_among_M.pl
167960

real    0m0.524s
user    0m0.499s
sys     0m0.015s