#Use of uninitialized value in length...
for my $d (grep ! length $_->{Name}, @data) {
 ...