@array = qw(ABU gubu abu GUBU babu BABU);
@array = sort {$a cmp $b} @array;
print "@array";
Getting o/p : ABU BABU GUBU abu babu gubu

Expected o/p : abu ABU babu BABU gubu GUBU