foreach $item (@array) BLOK

for ($index = 0; $index < @array; $index++) {
  $item = $array[$index];
  BLOK
}

for ($index = 0; $index < @array; $index++) {
  *item = \$array[$index];
  BLOK
}

foreach $klic (@ptaci) {
  substr($klic,0,1) = uc substr $klic,0,1;
}
print join(", ", @ptaci), "\n"; # vytiskne Kos, Vrabec, Papoušek, Datel

foreach $klic (keys %ptaci) {
  substr($klic,0,1) = uc substr $klic,0,1; # k modifikaci nedojde
}
foreach $value (values %ptaci) {
  substr($value,0,1) = uc substr $value,0,1; # k modifikaci dojde
}
while (($klic, $value) = each %ptaci) {
  print "$value je potrava pro $klic.\n";
} # vytiskne věty s velkým počátečním písmenem

@a=split '.', 'jakykoli retezec';
print "Pole je prázdné protože všechny znaky jsou oddělovačem\n" unless @a;