for (@items) {
      return 0 unless $self->($_);
}

##</code><code>##

sub filter (&@){
    my $sub = shift;
    for(@_){ return unless $sub->() }
    1
}
print +( filter {/foo/} qw/foobar foobar bazfoo/ )
    ? 'y' : 'n' , "\n";