for my $cell (@$row) {
    if (! defined $cell) {
        $cell = ' ';
    }
}