open(INF,$filename);
@indata = <INF>;
close(INF);
@sorted = sort { lc($a) cmp lc($b) } @indata;