@array = qw(ABU gubu abu GUBU babu BABU);
@array = sort {
    if (lc($a) eq lc($b)) {
        $b cmp $a
    } else {
        lc($a) cmp lc($b)
    }} @array;
print "@array";

__OUTPUT__
abu ABU babu BABU gubu GUBU