{
  {
    row1-id =>
      {
        'id' => row1-id,
        'field1' => row1-field1,
        'field2' => row1-field2,
        ...
      }
  },
  {
    row2-id =>
      {
        'id' => row2-id,
        'field1' => row2-field1,
        'field2' => row2-field2,
        ...
      }
  },
}

sub array2hash($$)
{
  my $fields = shift;
  my $array = shift;
  my $hash = {};
  $hash->{'meta'} = $fields;
  $hash->{'rows'} = {};
  my @fld = @{$fields};
  foreach my $row (@{$array})
  {
    $hash->{'rows'}->{$row->[0]} = {};
    $hash->{'rows'}->{$row->[0]}->{$fld[$_]} = $row->[$_] foreach (0..$#fld);
  }
  return $hash;
}