my @one = [1,2,3,4];
my @two = [2,4,6,8];

sub cf{...}

common = [2,4];
unique_one = [1,3];
unique_two = [6,8];