@array = sort mysort @sort;

sub mysort {
    lc($a) cmp lc($b);
}