@array = sort {
    lc substr($a,18) cmp lc substr($b,18)
} @array;