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";