use strict;
my $i;
my @list = ("eins","zwei","drei");
my $letzter = $#list;

while ($i <= $letzter) {
  print $list[$i];
  $i = $i + 1;
}