Select Code to Download

if (scalar @row1 == "6") {
   @entry1 = (@required , @row1);
...
               .  "and will note be re-submitted. <br>"
   }
};

if (@row1 == 6) {
   my @entry1 = (@required , @row1);
   ...
}

for my $row ( 1 .. $#rows ) {
   if (@{$rows[$row]} == 6) {
...
      ...
   }
}