- my $source=(shift @source)||"";
- my $apply =(shift @apply)||"";
- next if $source eq $apply;
- if ($source ne "" && $apply < $source) {
- unshift @source,$source;
+ my $source=$source[0];
+ $source=999999 if !defined $source;
+ my $apply =$apply[0];
+ $apply=999999 if !defined $apply;
+ if ($source eq $apply) {
+ shift @apply;
+ shift @source;
+ } elsif ($apply < $source) {
+ shift @apply;