my @list = ( qw( apple Alpha aLBAtross aLbAcOre etc... ) ); my @result = sort {uc($a) cmp uc($b)} @original;