my %_; map { %_{$_} = undef } @arr1, @arr2; my @newarr = keys %_; #### @a = (1,2,3,4,5); @b = (1,3,1,3,1);