my @data = qw(
    abc
    BCD
    aaa
    bcd
    zyx
    xyz
    fge
    BBB
    CCC
    ccc
    DdD
);

@data = sort { lc($a) cmp lc($b) } @data;

print join("\n", @data) . "\n";