Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Next statement with if statement
@a = (0 .. 20);
@b = (-10 .. 10);
DIVISION: while (@a) {
    $a = pop @a;
    $b = pop @b;
    next DIVISION if ($b == 0);
    print "$a / $b = " . $a / $b . "\n";
}