@array = sort { lc($a) cmp lc($b) || $b cmp $a } @array;