#!/usr/bin/perl 
use warnings; 

use List::Compare;   # Use of module

@x= qw/a b/; 
@y= qw/a c/; 
@z= qw/a d/;  

  push @s,\@x,\@y,\@z; 

  $num_ele=@s; 
       
print "\n 
 Array s: @s\n
 No. of Elements: $num_ele\n"; 

  $all= List::Compare->new(@s); # module 

@unq_x=$all->get_unique(0);    
@unq_y=$all->get_unique(1);
@unq_z=$all->get_unique(2);

print "
 unq_x: @unq_x\n
 unq_y: @unq_y\n
 unq_z: @unq_z\n\n"; 

exit;