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