my $var;
my $i;
for($i=0; $i<@liste; $i++){
  $var=$liste[$i];