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