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