my @x = ("one","two","Three","Four","five"); #random stuff to sort
@x  = sort {"\L$a" cmp "\L$b"} (@x); #use our own comparison
print "@x\n"; #generates: five Four one Three two