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