use YAML;
use List::MoreUtils;

my @A = (1, 2, 3, 4, 5) ;
my @B = (6, 7, 7, 8, 9) ;
my @C = (10, 11, 12, 13, 15) ;

my @D = grep {List::MoreUtils::uniq(@$_) == @$_} (\@A, \@B, \@C);

print YAML::Dump(@D);