Perl Control Flow

if ($x > 10) { # check condition
    print "Greater\n";
} elsif ($x == 10) { # additional check
    print "Equal\n";
} else { # default case
    print "Less\n";
}

unless ($error) { # if NOT condition
    print "Success\n";
}
print "OK\n" unless $error; # postfix form

for (my $i = 0; $i < 10; $i++) { # C-style for loop
    print "$i\n";
}

foreach my $item (@array) { # iterate array
    print "$item\n";
}
foreach (1..10) { # iterate range
    print "$_\n"; # default variable $_
}

while ($condition) { # repeat while true
    # code
}
until ($condition) { # repeat until true
    # code
}

last; # exit loop (like break)
next; # skip to next iteration (like continue)
redo; # restart current iteration