sub each_item (&@)
{
    my $test = shift ;
    foreach ( @_ ) { return 0 unless ( eval &$test ) }
    return 1 ;
}