Select Code to Download

@b = sort {$a <=> $b} @b;
@a = sort {$a <=> $b} @a;
print "@b\n";
...
  }
  $j++;
}

@c = grep { 
  defined($b[0]) and !($b[0] eq $_) or !shift @b
} sort {$a <=> $b} @a;