@row=map{decode("UTF-8", $_)}@row;
  push @$rows, [@row];