use strict; 
use warnings; 
use List::MoreUtils qw (any pairwise); 
our $a; 
our $b; 
our $c; 
my  @a=(3, 0,-5, 6);  
my  @b=(0,-2, 4, 3);  
my  @c=(4, 0, 4, 3);   
 
die "pair a,b is not compatible\n" if any {$_} pairwise { !$a and !$b } @a, @b; 
print 'pair a,b is compatible', "\n"; 
die "pair a,c is not compatible\n" if any {$_} pairwise { !$a and !$c } @a, @c; 
print 'pair a,c is compatible', "\n";