use List::Util qw( uniq );

my @combined = uniq @list1, @list2, @list3;