print sort split'', $string;

##</code><code>##

print sort uniq @array;