use strict;
use warnings;
use List::Compare::Functional qw(:originals :aliases);

my @array1 = ('anu','abu','ali');
my @array2 = ('anu','abu', 'ali');


my @c = get_complement( [ \@array1, \@array2 ] ); #data present in the @array2 but not present in @array1

(@c) ? print "mismatch,  return (0)\n" : print "no mismatch here\n"; #return here itself if mismatch in first array

my @d = get_unique( [ \@array1, \@array2 ] ); #data present in the @array1 but not present in @array2

(@d) ? print "mismatch,  return (0)\n" : print "no mismatch in both arrays\n"; #return if mismatch