blokhead,
You may want to modify your map line:

my @ith_data = map { defined $data{$_}[$i] ? $data{$_}[$i] : '' } @key
+s;
[download]

This way 0 and "0" will not get changed to "".

Cheers - L~R