sub f{join(" ",grep $_%@_[1]==1, 1..@_[0])}print f(100,7)
Standard input is empty
1 8 15 22 29 36 43 50 57 64 71 78 85 92 99
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!