#!/usr/bin/perl

use warnings;
use strict;

my @fruits = ("Apple", "Banana", "Tangerine");

# Das kann man auch so schreiben:
@fruits = qw(Apple Banana Tangerine);

my $i;
# for-Schleife im C-Stil mit Zahlen:
for ($i=1; $i <= 10; $i++) {
    print "$i\n";
}

# Andere for-Schleife mit Zahlen:
for $i (1 .. 10) {
    print "$i\n";
}

# for(each)-Schleife durch die Elemente eines Arrays.
# "for" und "foreach" sind synonym.
foreach $i (@fruits) {
    print "$i\n";
}

# Wenn man noch die jeweilige Elementnummer im Array braucht:
# "$#fruits" steht für die Anzahl der Elemente von @fruits minus 1:
for ($i=0; $i <= $#fruits; $i++) {
    print "$fruits[$i]\n";
}