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