my @a=(1 .. 2);
my @b=(2 .. 3);
my %c;
@c{@a,@b}=(@a,@b);
warn "Duplicates exist!" if scalar @c{@a,@b} != (@a+@b);