Select Code to Download

if (grep { grep { $_ eq "No Network" } @{$hash4{$celln[$o]}} } keys %h
+ash4) {
worksheet->write($r12, 2, "Non Network");
}