use strict;
use Data::Dumper;

my $rec = [ undef, 1, '', 2, 0 ];

@$rec = map { defined($_) ? $_ : '' } @$rec;

print Dumper($rec);

__END__

# ---output ---
$VAR1 = [
          '',
          1,
          '',
          2,
          '0'
        ];