my @tableData = $some_data;

for (my $i=0; $i< scalar(@tableData); $i++) {

	my @row = $tableData[$i];
	for ( my $j=0; $j< scalar(@row) ;$j++) {
		my $cell = $row[$j];

		if (($cell eq "") || ($cell eq " ")) {

			splice(@tableData, @row, @row)
		}
	}

}