@data= <DATA>;
print @sortdata = sort { lc($a) cmp lc($b) } (@data);

__DATA__
Orange
99
Grape
grape
22
Apple
2
Lemon
Orange