Help for this page

Select Code to Download

Select or download this

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