my %seen;
my @mergedkeys = grep !$seen{$_}++, @array1, @array2;