Select Code to Download

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

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