Loops

# Standard for loop

for ($i=0; $i < 10; $i++) {
   print "$i \n";
}

$x[0] = "Manet";    $x[1] = "Cezanne";
$x[2]="Kandinsky";  $x[3] = "Pollack";

# foreach loop

foreach $name (@x) {     # note parentheses
  print "$name \n";
}

# do loop

$j = 5;
do {
  print "$j \n";
  $j += .2;
}
until ($j > 6.1);

# mutant hybrid Perl thing

until ($j > 7) {
  print "$j \n";
  $j += .2;
}

Conditionals

$a = 1; $b = 2;

# standard if -- the braces are *not* optional

if ($a > $b) {
  print "goats ";
}

# if at the end

print "hounds " if ($b > $a);

# short circuit conditional

($a > $b) || print "oxen ";

# something other than 'if' for variety

print "flamingos " unless ($a > $b);

C hackers' delight

($a > $b) ? print "humuhumunukunukuapuaa " : print "ginko ";

print "\n";