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

##</code><code>##

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