for my $foo (@array) {
   next if (! $foo);
}