#!/usr/bin/perl 
use warnings; 
use List::Compare; # use of module

@x= qw(b); 
@y= qw(c);
@z= qw(d);

$s1=\@x; push @s,$s1; 
$s2=\@y; push @s,$s2; 
$s3=\@z; push @s,$s3; 

print "\n Array s: @s\n"; 

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

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

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

exit;