my (@unique_temp,@unique_temp2) ; (!in_array($_,[@temp, @unique_temp2])) && (push @unique_temp2, $_) for (@temp2); (!in_array($_,[@temp2,@unique_temp])) && (push @unique_temp, $_) for (@temp);