http://www.perlmonks.org?node_id=456865

deep submerge has asked for the wisdom of the Perl Monks concerning the following question:

My employer recently asked me to take a test to gauge my coding ability... And I was absolutely delighted to see a section in which I could choose the language to solve the problem. I chose Perl, of course. Now... The task was to print all of the odd numbers between 1 and 13. Here's what I tried:

for (1..13) { print if $_ % 2 }
and
print for (grep { $_ % 2 } (1..13))

Is there any more concise way to get the above output? Preferably keeping to its dynamic solution of N to M. (I realized while taking the test that some solutions could be written more literally, solving to the problem itself and not really being applicable elsewhere)

print 1, 3, 5, 7, 9, 11, 13

Update: I already took the test before posting. I'm just looking for a shorter, more concise answer. Golf away! =)