my @A = mysort { lc $a cmp lc $b } @list;
my @B = mysort @list;