That's not guaranteed to return the mentioned result. How about:

@items = sort { lc($a) cmp lc($b) || $a cmp $b } @items;
[download]