my $rows = [ map {{ cells => $_ }} @array ];
print Dumper $rows;