sub foo
{
     my ($ary1, $ary2) = @_;

     foreach my $wid (@$ary1)
     {
          foreach my $jet (@$ary2)
          {
               last if ($wid > $jet);
               $wid += $jet;
          }
     }
     return;
}

foo(\@ary1, \@ary2);