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