my $var; foreach $var (@liste)