my $var;
foreach $var (@array)