Nevermind. Second example contradicts this.

You're asking for an order-preserving duplicate remover.

my %seen;
my @combined = grep !$seen{ $_ }++, @list1, @list2, @list3;
[download]

use List::Util qw( uniq );

my @combined = uniq @list1, @list2, @list3;
[download]