my @x = qw /one two Three Four five/; #random stuff to sort
@x  = sort ignoreCase (@x); #use our own comparison, ignoreCase
print "@x\n"; #will generate: five Four one Three two

sub ignoreCase { #alternate function for compare in sort 
    if ("\L$a" lt "\L$b") {return -1} #indicates less
    elsif ("\L$a" eq "\L$b") {return 0} #equal
    else {return 1} #greater
}