Add  print "$num\n"; and you can see how the loop works