Hi,

while sorting follow the below:

<=> for Numeric

cmp for String

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

__DATA__
Orange
99
Grape
grape
22
Apple
2
Lemon
Orange
[download]