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