DB<102> for my $i (0..20) {
             print "$i:\t";
             print "fizz" if not $i % 3;
             print "buzz" if not $i % 5;
             print "\n";
          }
0:	fizzbuzz
1:	
2:	
3:	fizz
4:	
5:	buzz
6:	fizz
7:	
8:	
9:	fizz
10:	buzz
11:	
12:	fizz
13:	
14:	
15:	fizzbuzz
16:	
17:	
18:	fizz
19:	
20:	buzz