foreach my $var (@array)

##</code><code>##

my $var;
foreach $var (@array)