my %rownames;
$rownames{$_} = $_ for sort keys %{@{$rows}[0]};
unshift @$rows, \%rownames;