DB<4> for $i (2,3,4) { for $e (1..9) { next if $e == $i or $e*$i >9 ; print "$i * $e = ", $i *$e,"\n" }} 2 * 1 = 2 # 2 * 3 = 6 2 * 4 = 8 3 * 1 = 3 # 3 * 2 = 6 4 * 1 = 4 # 4 * 2 = 8