sub extract {
my @arrays = (\@right, \@legal, \@prod);

foreach 1..39 {
   foreach my $col ($_) {
      next unless defined $Sheet->Cells($row, $col)->{'Value'};
      my $c = $Sheet->Cells($row, $col)->{'Value'};
      map {push @$_, $c} @arrays;
   }
}
}