break, continue Perl $n = 0; foreach $i (0..10) { print "$i, $n\n"; $n++; next if ($n % 2 == 0); redo if ($n % 3 == 0); last if ($n > 5); print "\n"; } print "$n\n"; L:\>perl lesson010.pl 0, 0 1, 1 2, 2 2, 3 3, 4 4, 5 5, 6 7 Ruby n = 0 for…