$swapString = join ("|", sort { length($b) <=> length($a) } @array, @array2);