my $item;
foreach $item (@array)

and

foreach my $item (@array)