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