foreach my $var (@array)