my @things = qw (apple Xenon banana Xircom cheese XWindows);
<br>foreach (@things) {s/^X/\00/i};
<br>@oddity = sort @things;foreach (@oddity) {s/\00/X/i}; <br>print "@
+oddity";
[download]

obviously, this won't work for things that actually have \00 in them.