foreach my $var (@liste)