replace

my @multi_arrayA; push @multi_arrayA, [split(' ', $_)] for <dataA>;
[download]

with:

my @multi_arrayA; push @multi_arrayA, [split(' ', $_)] for grep /\S/, 
+<dataA>;
[download]

in both places, changing A to B in the second one, of course.