for $total_nums ( map $_*5, 0 .. 40 ) {
    printf "$total_nums =>";
    $test_nums = 1;
    $test_nums++ while ( $total_nums -= 30 ) > 0;
    print $test_nums;
};;

0 =>1
5 =>1
10 =>1
15 =>1
20 =>1
25 =>1
30 =>1
35 =>2
40 =>2
45 =>2
50 =>2
55 =>2
60 =>2
65 =>3
70 =>3
75 =>3
80 =>3
85 =>3
90 =>3
95 =>4
100 =>4
105 =>4
110 =>4
115 =>4
120 =>4
125 =>5
130 =>5
135 =>5
140 =>5
145 =>5
150 =>5
155 =>6
160 =>6
165 =>6
170 =>6
175 =>6
180 =>6
185 =>7
190 =>7
195 =>7
200 =>7