my $var;
for $var (@liste)