@files = sort { lc(${@$a}[0]) cmp lc(${@$b}[0]) } @$refdataarr ;