Nice! I particularly like the $%%$_ construct. But why so verbose?

 1:49 >perl -wE"$%%$_||say for 1..($%=pop)" 36
1
2
3
4
6
9
12
18
36

 1:49 >
[download]

Ten characters strokes saved. :-)