format_c@server:~> perl
my $arrayref = [qw/eins zwei drei vier/];
for (0 .. scalar @$arrayref - 1) {
        print "Nr: ",$_,"\n";
}

Nr: 0
Nr: 1
Nr: 2
Nr: 3
format_c@server:~>