@list = sort { lc $a cmp lc $b } @list;